File Coverage

blib/lib/Sprocket/Logger/Basic.pm

Criterion	Covered	Total	%
statement	10	17	58.8
branch	1	10	10.0
condition	1	5	20.0
subroutine	4	4	100.0
pod	1	2	50.0
total	17	38	44.7

package Sprocket::Logger::Basic;

use strict;
use warnings;

sub new {
    my $class = shift;
    bless( {}, ref $class || $class );
}

sub put {
    my ($self, $sprocket, $opts) = @_;

    return unless ( $opts->{v} <= $sprocket->{opts}->{log_level} );
    my $con = $sprocket->{heap};
    my $sender = ( $con )
        ? ( $con->peer_addr ? $con->peer_addr : '' )."(".$con->ID.")" : "?";
    my $l = $opts->{l} ? $opts->{l}+2 : 2;
    my $caller = $opts->{call} ? $opts->{call} : ( caller($l) )[3] || '?';
    $caller =~ s/^POE::Component/PoCo/o;
    $caller =~ s/^Sprocket::Plugin/SPlugin/o;
    print STDERR '['.localtime()."][pid:$$][$sprocket->{connections}][$caller][$sender] $opts->{msg}\n";
}

1;

__END__