Changeset 3695 for lang/perl/Archer

Timestamp:

12/28/07 11:23:36 (11 months ago)

Author:

tokuhirom

Message:

r3629@mnk (orig r279): tokuhiro | 2007-02-18 18:46:10 -0800
added log level support.code from plagger.

Files:

• lang/perl/Archer/lib/Archer.pm (modified) (2 diffs)

lang/perl/Archer/lib/Archer.pm

@@ -23 +23 @@
     my $config_loader = Archer::ConfigLoader->new;
     $self->{config} = $config_loader->load($opts->{config_yaml});
+    $self->{config}->{global}->{log} ||= { level => 'debug' };
 
     Archer->set_context($self);
@@ -115 +116 @@
 # TODO: use the log4perl?
 sub log {
-    my ($self, $level, $msg) = @_;
+    my ( $self, $level, $msg, %opt ) = @_;
 
-    warn "[$level] $msg\n";
+    return unless $self->should_log($level);
+
+    # hack to get the original caller as Plugin or Rule
+    # from plagger.
+    my $caller = $opt{caller};
+    unless ($caller) {
+        my $i = 0;
+        while (my $c = caller($i++)) {
+            last if $c !~ /Plugin|Rule/;
+            $caller = $c;
+        }
+        $caller ||= caller(0);
+    }
+
+    warn "$caller [$level] $msg\n";
+}
+
+my %levels = (
+    debug => 0,
+    warn  => 1,
+    info  => 2,
+    error => 3,
+);
+
+sub should_log {
+    my($self, $level) = @_;
+
+    $levels{$level} >= $levels{ $self->{config}->{global}->{log}->{level} };
 }