From 3d7a23ca133cf5591f129c10f2ca80f5e53433db Mon Sep 17 00:00:00 2001
From: "Paul Buetow (pluto.buetow.org)" <paul@buetow.org>
Date: Sun, 15 Sep 2013 14:24:15 +0200
Subject: add dumper

---
 Xerl/Base.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'Xerl/Base.pm')

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;
 
   }
-- 
cgit v1.2.3