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.1104';
3              
4 5     5   2192 use strict;
  5         12  
  5         146  
5 5     5   26 use warnings;
  5         8  
  5         388  
6              
7              
8             sub new
9             {
10 37     37 1 23368 my $class = shift;
11 37         77 my $self = {};
12              
13 37         76 bless $self, $class;
14 37         184 $self->_init(@_);
15              
16 37         203 return $self;
17             }
18              
19             1;
20              
21             __END__