File Coverage

blib/lib/JLogger/Storage.pm
Criterion Covered Total %
statement 11 14 78.5
branch n/a
condition n/a
subroutine 4 5 80.0
pod 2 3 66.6
total 17 22 77.2


line stmt bran cond sub pod time code
1             package JLogger::Storage;
2              
3 1     1   760 use strict;
  1         2  
  1         42  
4 1     1   6 use warnings;
  1         1  
  1         162  
5              
6             require Carp;
7              
8             sub new {
9 1     1 0 540 my ($class, %args) = @_;
10              
11 1         4 my $self = bless {%args}, $class;
12              
13 1         5 $self->init;
14              
15 1         3 $self;
16             }
17              
18             sub init {
19 1     1 1 2 my $self = shift;
20             }
21              
22             sub save {
23 0     0 1   my $self = shift;
24              
25 0           Carp::croak(qq(You didn't implemented "save" in @{[ ref $self ]}));
  0            
26             }
27              
28             1;
29             __END__