File Coverage

blib/lib/Net/Stomp/StupidLogger.pm

Criterion	Covered	Total	%
statement	9	27	33.3
branch	0	4	0.0
condition	0	2	0.0
subroutine	3	10	30.0
pod	6	6	100.0
total	18	49	36.7

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

our $VERSION = '0.61';

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__