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.1102';
3              
4 5     5   1924 use strict;
  5         11  
  5         127  
5 5     5   22 use warnings;
  5         10  
  5         368  
6              
7              
8             sub new
9             {
10 37     37 1 19423 my $class = shift;
11 37         74 my $self = {};
12              
13 37         68 bless $self, $class;
14 37         156 $self->_init(@_);
15              
16 37         181 return $self;
17             }
18              
19             1;
20              
21             __END__