[Catalyst-commits] r6444 - trunk/Catalyst-Log-Log4perl/lib/Catalyst/Log

[jshirley at dev.catalyst.perl.org]

Author: jshirley
Date: 2007-05-30 20:01:12 +0100 (Wed, 30 May 2007)
New Revision: 6444

Modified:
   trunk/Catalyst-Log-Log4perl/lib/Catalyst/Log/Log4perl.pm
Log:
Adding _dump to be API compatible with Catalyst::Log

Modified: trunk/Catalyst-Log-Log4perl/lib/Catalyst/Log/Log4perl.pm
===================================================================
--- trunk/Catalyst-Log-Log4perl/lib/Catalyst/Log/Log4perl.pm	2007-05-30 16:30:01 UTC (rev 6443)
+++ trunk/Catalyst-Log-Log4perl/lib/Catalyst/Log/Log4perl.pm	2007-05-30 19:01:12 UTC (rev 6444)
@@ -67,6 +67,7 @@
 use Log::Log4perl::Layout;
 use Log::Log4perl::Level;
 use Params::Validate;
+use Data::Dump;
 
 our $VERSION = '0.51';
 
@@ -116,6 +117,11 @@
     push @{ $self->{log4perl_stack} }, @_;
 }
 
+sub _dump {
+    my $self = shift;
+    $self->debug( Data::Dump::dump(@_) );
+}
+
 =item new($config, [%options])
 
 This builds a new L<Catalyst::Log::Log4perl> object.  If you provide an argument