Revision ad65bf1b
Von Moritz Bunkus vor fast 12 Jahren hinzugefügt
| SL/LXDebug.pm | ||
|---|---|---|
|
}
|
||
|
|
||
|
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);
|
||
|
$dumper->Indent(2);
|
||
|
$dumper->$_($options{$_}) for keys %options;
|
||
|
$self->message($level, "dumping ${name}:\n" . $dumper->Dump());
|
||
|
|
||
|
$variable->{password} = $password if (defined $password);
|
||
Auch abrufbar als: Unified diff
LXDebug->dump: Optionen an Data::Dumper übergeben können