Revision 0be6a682
Von Moritz Bunkus vor etwa 8 Jahren hinzugefügt
| SL/LXDebug.pm | ||
|---|---|---|
|
|
||
|
use Data::Dumper;
|
||
|
use POSIX qw(strftime getpid);
|
||
|
use Scalar::Util qw(blessed refaddr reftype weaken);
|
||
|
use Scalar::Util qw(blessed refaddr weaken);
|
||
|
use Time::HiRes qw(gettimeofday tv_interval);
|
||
|
use YAML;
|
||
|
use SL::Request ();
|
||
| ... | ... | |
|
if (blessed($src) && $src->can('as_debug_info')) {
|
||
|
$dumped{$addr} = $src->as_debug_info;
|
||
|
|
||
|
} elsif (reftype($src) eq 'ARRAY') {
|
||
|
} elsif (ref($src) eq 'ARRAY') {
|
||
|
$dumped{$addr} = [];
|
||
|
|
||
|
foreach my $entry (@{ $src }) {
|
||
| ... | ... | |
|
|
||
|
}
|
||
|
|
||
|
} elsif (reftype($src) eq 'HASH') {
|
||
|
} elsif (ref($src) =~ m{^(?:HASH|Form)$}) {
|
||
|
$dumped{$addr} = {};
|
||
|
|
||
|
foreach my $key (keys %{ $src }) {
|
||
Auch abrufbar als: Unified diff
LXDebug::dump: nur Form-Instanzen als Hash behandeln, nicht alle Hash-basierten Objekte