File Coverage

blib/lib/Language/LispPerl/Logger.pm

Criterion	Covered	Total	%
statement	15	21	71.4
branch			n/a
condition			n/a
subroutine	5	8	62.5
pod	0	4	0.0
total	20	33	60.6

package Language::LispPerl::Logger;
$Language::LispPerl::Logger::VERSION = '0.007';
use strict;
use warnings;

use Carp;

use Log::Any qw/$log/;

sub error {
    my $msg = shift;
    $log->error("$msg");
    confess( $msg );
}

sub info {
    my $msg = shift;
    $log->info($msg);
}

sub warn {
    my $msg = shift;
    $log->warn($msg);
}

sub debug {
    my $msg = shift;
    $log->debug($msg);
}

1;