File Coverage

blib/lib/CljPerl/Logger.pm

Criterion	Covered	Total	%
statement	6	14	42.8
branch			n/a
condition			n/a
subroutine	2	6	33.3
pod	0	4	0.0
total	8	24	33.3

package CljPerl::Logger;

  use strict;
  use warnings;

  our $VERSION = '0.10';

  sub error {
    my $msg = shift;
    die "[E] $msg";
  }

  sub info {
    my $msg = shift;
    print "[I] $msg";
  }

  sub warn {
    my $msg = shift;
    print "[W] $msg";
  }

  sub debug {
    my $msg = shift;
    print "[D] $msg";
  }

1;