Revision 65b2387a
Von Moritz Bunkus vor mehr als 5 Jahren hinzugefügt
| SL/LXDebug.pm | ||
|---|---|---|
| 22 | 22 |
use POSIX qw(strftime getpid); |
| 23 | 23 |
use Scalar::Util qw(blessed refaddr weaken); |
| 24 | 24 |
use Time::HiRes qw(gettimeofday tv_interval); |
| 25 |
use YAML; |
|
| 26 | 25 |
use SL::Request (); |
| 26 |
use SL::YAML; |
|
| 27 | 27 |
|
| 28 | 28 |
use strict; |
| 29 | 29 |
use utf8; |
| ... | ... | |
| 213 | 213 |
sub dump_yaml {
|
| 214 | 214 |
my ($self, $level, $name, $variable) = @_; |
| 215 | 215 |
|
| 216 |
$self->message($level, "dumping ${name}:\n" . YAML::Dump($variable));
|
|
| 216 |
$self->message($level, "dumping ${name}:\n" . SL::YAML::Dump($variable));
|
|
| 217 | 217 |
} |
| 218 | 218 |
|
| 219 | 219 |
sub dump_sql_result {
|
| ... | ... | |
| 252 | 252 |
return; |
| 253 | 253 |
} |
| 254 | 254 |
|
| 255 |
my @texts = map { ref $_ ? YAML::Dump($_) : $_ } ($item1, $item2);
|
|
| 255 |
my @texts = map { ref $_ ? SL::YAML::Dump($_) : $_ } ($item1, $item2);
|
|
| 256 | 256 |
|
| 257 | 257 |
$self->message($level, Text::Diff::diff(\$texts[0], \$texts[1], \%params)); |
| 258 | 258 |
} |
Auch abrufbar als: Unified diff
Module: gebundletes YAML durch dünnen Wrapper über YAML::XS & YAML ersetzt