Changeset 8043 for lang/perl/App-MadEye

Timestamp:

03/17/08 21:00:41 (8 months ago)

Author:

tokuhirom

Message:

use Log::Dispatch.

Location:

lang/perl/App-MadEye/trunk

Files:

• Makefile.PL (modified) (1 diff)
• lib/App/MadEye.pm (modified) (4 diffs)

lang/perl/App-MadEye/trunk/Makefile.PL

@@ -16 +16 @@
 requires 'Pod::POM';
 requires 'List::Util';
+requires 'Log::Dispatch';
 
 features(

lang/perl/App-MadEye/trunk/lib/App/MadEye.pm

@@ -7 +7 @@
 use Params::Validate;
 use UNIVERSAL::require;
+use Log::Dispatch;
 __PACKAGE__->load_components(qw/Plaggerize Autocall::InjectMethod/);
 
@@ -19 +20 @@
     $context = $self;
 
+    $self->_setup_logger;
+
     $self;
 }
@@ -28 +31 @@
     unless (defined $self->class_component_methods->{'run_job'}) {
         $self->log(debug => 'use Worker::Simple');
-        $self->load_plugins(qw/Worker::Simple/);
+        $self->load_plugins(qw/Worker::Simple/ => {});
     }
 
@@ -103 +106 @@
 }
 
+sub _setup_logger {
+    my $self = shift;
+
+    my $logger = Log::Dispatch->new;
+    for my $conf (@{ $self->conf->{global}->{logger} || [] }) {
+        my $class = "Log::Dispatch::$conf->{class}";
+        $class->use or die $@;
+        $logger->add( $class->new( %{ $conf->{config} } ) );
+    }
+    $self->{logger} = $logger;
+}
+
+sub log {
+    my ($self, $level, $msg) = @_;
+    die "missing level" unless $level;
+    die "missing msg" unless $msg;
+
+    $self->{logger}->log( level => $level, message => "$msg\n" );
+}
+
 1;
 __END__