Revision 0cdbf7b0
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| SL/LXDebug.pm | ||
|---|---|---|
| 170 | 170 |
$dumper->Sortkeys(1); |
| 171 | 171 |
$dumper->Indent(2); |
| 172 | 172 |
$dumper->$_($options{$_}) for keys %options;
|
| 173 |
$self->message($level, "dumping ${name}:\n" . $dumper->Dump());
|
|
| 173 |
my $output = $dumper->Dump(); |
|
| 174 |
$self->message($level, "dumping ${name}:\n" . $output);
|
|
| 174 | 175 |
|
| 175 | 176 |
$variable->{password} = $password if (defined $password);
|
| 176 | 177 |
|
| ... | ... | |
| 181 | 182 |
keys %{ $variable };
|
| 182 | 183 |
} |
| 183 | 184 |
|
| 185 |
return $output; |
|
| 186 |
|
|
| 184 | 187 |
} else {
|
| 185 | 188 |
$self->message($level, |
| 186 | 189 |
"dumping ${name}: Data::Dumper not available; "
|
| 187 | 190 |
. "variable cannot be dumped"); |
| 191 |
|
|
| 192 |
return undef; |
|
| 188 | 193 |
} |
| 189 | 194 |
} |
| 190 | 195 |
|
Auch abrufbar als: Unified diff
$::lxdebug->dump() gibt den gedumpten Text zusätzlich als Rückgabewert zurück