Revision 325974c2
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/LXDebug.pm | ||
|---|---|---|
| 14 | 14 |
|
| 15 | 15 |
use POSIX qw(strftime); |
| 16 | 16 |
|
| 17 |
use YAML; |
|
| 18 |
|
|
| 17 | 19 |
my $data_dumper_available; |
| 18 | 20 |
|
| 19 | 21 |
our $global_level; |
| ... | ... | |
| 133 | 135 |
} |
| 134 | 136 |
} |
| 135 | 137 |
|
| 138 |
sub dump_yaml {
|
|
| 139 |
my ($self, $level, $name, $variable) = @_; |
|
| 140 |
|
|
| 141 |
$self->message($level, "dumping ${name}:\n" . YAML::Dump($variable));
|
|
| 142 |
} |
|
| 143 |
|
|
| 136 | 144 |
sub enable_sub_tracing {
|
| 137 | 145 |
my ($self) = @_; |
| 138 | 146 |
$self->{level} | TRACE;
|
Auch abrufbar als: Unified diff
Funktion zum Dumpen von Objekten via YAML hinzugefügt. Ist manchmal besser lesbar als die Ausgabe von Data::Dumper;