Revision 0be6a682
Von Moritz Bunkus vor fast 8 Jahren hinzugefügt
| SL/LXDebug.pm | ||
|---|---|---|
| 20 | 20 |
|
| 21 | 21 |
use Data::Dumper; |
| 22 | 22 |
use POSIX qw(strftime getpid); |
| 23 |
use Scalar::Util qw(blessed refaddr reftype weaken);
|
|
| 23 |
use Scalar::Util qw(blessed refaddr weaken); |
|
| 24 | 24 |
use Time::HiRes qw(gettimeofday tv_interval); |
| 25 | 25 |
use YAML; |
| 26 | 26 |
use SL::Request (); |
| ... | ... | |
| 176 | 176 |
if (blessed($src) && $src->can('as_debug_info')) {
|
| 177 | 177 |
$dumped{$addr} = $src->as_debug_info;
|
| 178 | 178 |
|
| 179 |
} elsif (reftype($src) eq 'ARRAY') {
|
|
| 179 |
} elsif (ref($src) eq 'ARRAY') {
|
|
| 180 | 180 |
$dumped{$addr} = [];
|
| 181 | 181 |
|
| 182 | 182 |
foreach my $entry (@{ $src }) {
|
| ... | ... | |
| 187 | 187 |
|
| 188 | 188 |
} |
| 189 | 189 |
|
| 190 |
} elsif (reftype($src) eq 'HASH') {
|
|
| 190 |
} elsif (ref($src) =~ m{^(?:HASH|Form)$}) {
|
|
| 191 | 191 |
$dumped{$addr} = {};
|
| 192 | 192 |
|
| 193 | 193 |
foreach my $key (keys %{ $src }) {
|
Auch abrufbar als: Unified diff
LXDebug::dump: nur Form-Instanzen als Hash behandeln, nicht alle Hash-basierten Objekte