diff options
| author | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-15 14:24:15 +0200 |
|---|---|---|
| committer | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-15 14:24:15 +0200 |
| commit | 3d7a23ca133cf5591f129c10f2ca80f5e53433db (patch) | |
| tree | bdef287268fa62565879cf712883d1cd1d42b1a1 /Xerl | |
| parent | 709078fd30af6a543707b2b0e18c989792d683a4 (diff) | |
add dumper
Diffstat (limited to 'Xerl')
| -rw-r--r-- | Xerl/Base.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Xerl/Base.pm b/Xerl/Base.pm index 589e325..64d4297 100644 --- a/Xerl/Base.pm +++ b/Xerl/Base.pm @@ -32,6 +32,8 @@ package UNIVERSAL; use strict; use warnings; +use Data::Dumper; + sub new ($;) { my $self = shift; @@ -119,8 +121,8 @@ sub AUTOLOAD { return exists $self->{$1} ? $self->{ $_[0] } : 0; } - elsif ( $auto =~ /.*::debug$/ ) { - print "DEBUG: @_\n"; + elsif ( $auto =~ /.*::dumper$/ ) { + print Dumper @_; return undef; } |