File Coverage

blib/lib/Net/Stomp/StupidLogger.pm

Criterion	Covered	Total	%
statement	18	27	66.6
branch	1	4	25.0
condition	1	2	50.0
subroutine	6	10	60.0
pod	6	6	100.0
total	32	49	65.3

package Net::Stomp::StupidLogger;
use strict;
use warnings;
use Carp;

our $VERSION = '0.57';

sub new {
    my ($class,$levels) = @_;
    $levels||={};
    for my $l (qw(warn error fatal)) {
        $levels->{$l}=1 unless defined $levels->{$l};
    }
    return bless $levels,$class;
}

sub _log {
    my ($self,$level,@etc) = @_;
    return unless $self->{$level};
    carp join '',@etc;
}

sub debug { my $self=shift;$self->_log(debug=>@_) }
sub info  { my $self=shift;$self->_log(info =>@_) }
sub warn  { my $self=shift;$self->_log(warn =>@_) }
sub error { my $self=shift;$self->_log(error=>@_) }
sub fatal { my $self=shift;$self->_log(fatal=>@_) }

1;

__END__