diff options
| author | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-15 12:39:16 +0200 |
|---|---|---|
| committer | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-15 12:39:16 +0200 |
| commit | af4ddb3afc5e0fe4c77b9df3bcb4ea4aa2d33c8d (patch) | |
| tree | 7c66fd0e3d7620ee0bfd0d8a67be5800f227e995 | |
| parent | 1b8eb9cbb10cd4dc4902b41aa2ff88d4f18aa7e5 (diff) | |
add universal debug method
| -rw-r--r-- | Xerl/Base.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Xerl/Base.pm b/Xerl/Base.pm index 6b71565..589e325 100644 --- a/Xerl/Base.pm +++ b/Xerl/Base.pm @@ -119,6 +119,11 @@ sub AUTOLOAD { return exists $self->{$1} ? $self->{ $_[0] } : 0; } + elsif ( $auto =~ /.*::debug$/ ) { + print "DEBUG: @_\n"; + return undef; + + } else { print "$auto is not a method of $self or UNIVERSAL\n"; } |