Revision ad65bf1b
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| SL/LXDebug.pm | ||
|---|---|---|
| 157 | 157 |
} |
| 158 | 158 |
|
| 159 | 159 |
sub dump {
|
| 160 |
my ($self, $level, $name, $variable) = @_; |
|
| 160 |
my ($self, $level, $name, $variable, %options) = @_;
|
|
| 161 | 161 |
|
| 162 | 162 |
if ($data_dumper_available) {
|
| 163 | 163 |
my $password; |
| ... | ... | |
| 169 | 169 |
my $dumper = Data::Dumper->new([$variable]); |
| 170 | 170 |
$dumper->Sortkeys(1); |
| 171 | 171 |
$dumper->Indent(2); |
| 172 |
$dumper->$_($options{$_}) for keys %options;
|
|
| 172 | 173 |
$self->message($level, "dumping ${name}:\n" . $dumper->Dump());
|
| 173 | 174 |
|
| 174 | 175 |
$variable->{password} = $password if (defined $password);
|
Auch abrufbar als: Unified diff
LXDebug->dump: Optionen an Data::Dumper übergeben können