}
sub dump {
- my ($self, $level, $name, $variable) = @_;
+ my ($self, $level, $name, $variable, %options) = @_;
if ($data_dumper_available) {
my $password;
my $dumper = Data::Dumper->new([$variable]);
$dumper->Sortkeys(1);
- $self->message($level, "dumping ${name}:\n" . $dumper->Dump());
+ $dumper->Indent(2);
+ $dumper->$_($options{$_}) for keys %options;
+ my $output = $dumper->Dump();
+ $self->message($level, "dumping ${name}:\n" . $output);
$variable->{password} = $password if (defined $password);
keys %{ $variable };
}
+ return $output;
+
} else {
$self->message($level,
"dumping ${name}: Data::Dumper not available; "
. "variable cannot be dumped");
+
+ return undef;
}
}