From af4ddb3afc5e0fe4c77b9df3bcb4ea4aa2d33c8d Mon Sep 17 00:00:00 2001
From: "Paul Buetow (pluto.buetow.org)" <paul@buetow.org>
Date: Sun, 15 Sep 2013 12:39:16 +0200
Subject: add universal debug method

---
 Xerl/Base.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/Xerl/Base.pm b/Xerl/Base.pm
index 6b71565..589e325 100644
--- a/Xerl/Base.pm
+++ b/Xerl/Base.pm
@@ -118,6 +118,11 @@ sub AUTOLOAD {
   elsif ( $auto =~ /.*::(.+)_isset$/ ) {
     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";
-- 
cgit v1.2.3