Revision 91aac6c6
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| SL/LXDebug.pm | ||
|---|---|---|
|
my ($self, $level, $name, $variable) = @_;
|
||
|
|
||
|
if ($data_dumper_available) {
|
||
|
$self->message($level, "dumping ${name}:\n" . Dumper($variable));
|
||
|
my $dumper = Data::Dumper->new([$variable]);
|
||
|
$dumper->Sortkeys(1);
|
||
|
$self->message($level, "dumping ${name}:\n" . $dumper->Dump());
|
||
|
} else {
|
||
|
$self->message($level,
|
||
|
"dumping ${name}: Data::Dumper not available; "
|
||
Auch abrufbar als: Unified diff
Die Ausgabe von Data::Dumper sortieren lassen, damit sie besser durchsuchbar ist.