Changeset 11213 for lang/perl/Punc/trunk

Timestamp:

05/06/08 19:50:47 (7 months ago)

Author:

mizzy

Message:

ロギング機能追加。Moose::Role かわゆす。

Location:

lang/perl/Punc/trunk/lib

Files:

• Punc.pm (modified) (1 diff)
• Punc/Logger (added)
• Punc/Logger.pm (added)
• Punc/Logger/StdErr.pm (added)
• Punc/Slave/Module.pm (modified) (1 diff)

lang/perl/Punc/trunk/lib/Punc.pm

@@ -43 +43 @@
     chomp $pfact;
     return $pfact;
+}
+
+sub logger {
+    my $self = shift;
+    require Punc::Logger::StdErr;
+    $self->{logger} ||= 'Punc::Logger::StdErr';
+}
+
+sub log {
+    my ( $self, $level, $message ) = @_;
+    $self->logger->log( $level => $message );
 }
 

lang/perl/Punc/trunk/lib/Punc/Slave/Module.pm

@@ -40 +40 @@
     }
 
+    Punc->context->log( info => "Delegated to $module_to_delegate." );
     bless $self, $module_to_delegate;
 }