File Coverage

blib/lib/Jaipo/Logger.pm
Criterion Covered Total %
statement 10 14 71.4
branch 0 2 0.0
condition n/a
subroutine 3 5 60.0
pod 0 3 0.0
total 13 24 54.1


line stmt bran cond sub pod time code
1             package Jaipo::Logger;
2 3     3   10 use warnings;
  3         4  
  3         73  
3 3     3   11 use strict;
  3         4  
  3         300  
4              
5              
6             sub new {
7 1     1 0 2 my $class = shift;
8              
9 1         2 my $self = {};
10              
11              
12 1         2 bless $self, $class;
13 1         5 return $self;
14             }
15              
16              
17       0 0   sub warn {
18              
19              
20             }
21              
22             sub info {
23 0     0 0   my $self = shift;
24 0           my $line = shift;
25 0           my @args = @_;
26 0 0         printf( $line . "\n" , @args ) if ( $line );
27             }
28              
29              
30             1;