diff options
Diffstat (limited to 'Xerl')
| -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"; } |
