Changeset 34035

Timestamp:

06/19/09 02:14:32 (4 years ago)

Author:

vkgtaro

Message:

oops, 破壊的だった……。

Location:

lang/perl/Log-Dispatch-Colorful/trunk

Files:

• lib/Log/Dispatch/Colorful.pm (modified) (2 diffs)
• t/01_log.t (modified) (2 diffs)

lang/perl/Log-Dispatch-Colorful/trunk/lib/Log/Dispatch/Colorful.pm

@@ -18 +18 @@
 
 BEGIN {
-    foreach my $l (qw( debug info notice warning err error crit critical alert emerg emergency )) {
+    foreach my $level (qw( debug info notice warning err error crit critical alert emerg emergency )) {
         my $sub = sub {
             my $self = shift;
@@ -24 +24 @@
             foreach my $arg (@_) {
                 if ( ref $arg ) {
-                    $arg = Dumper($arg);
+                    $messages = Dumper($arg);
                 }
                 $messages .= $arg || '';
             }
 
-            $self->log( level => $l, message => $messages );
+            $self->log( level => $level, message => $messages );
         };
 
-        $LEVELS{$l} = 1;
+        $LEVELS{$level} = 1;
 
         no strict 'refs';
         no warnings 'redefine';
-        *{ "Log::Dispatch::" . $l } = $sub;
+        *{ "Log::Dispatch::" . $level } = $sub;
     }
 }

lang/perl/Log-Dispatch-Colorful/trunk/t/01_log.t

@@ -2 +2 @@
 use warnings;
 
-use Test::More tests => 2;
+use Test::More tests => 4;
 
 use Log::Dispatch;
@@ -37 +37 @@
 
 my $data = { foo => 'bar' };
+is ref $data, 'HASH';
+
 $dispatcher->debug($data);
 
 ok $err =~ m!'foo' \s+ => \s+ 'bar'!xms, 'no debug';
+is ref $data, 'HASH';