File Coverage

blib/lib/Test/Count/Base.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 1 1 100.0
total 15 15 100.0


line stmt bran cond sub pod time code
1             package Test::Count::Base;
2             $Test::Count::Base::VERSION = '0.1105';
3              
4 4     4   1569 use strict;
  4         7  
  4         110  
5 4     4   19 use warnings;
  4         5  
  4         297  
6              
7              
8             sub new
9             {
10 37     37 1 22642 my $class = shift;
11 37         72 my $self = {};
12              
13 37         100 bless $self, $class;
14 37         180 $self->_init(@_);
15              
16 37         215 return $self;
17             }
18              
19             1;
20              
21             __END__