File Coverage

blib/lib/Class/Cache/Test/MeaningOfUniverse.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 2 0.0
total 9 11 81.8


line stmt bran cond sub pod time code
1             package Class::Cache::Test::MeaningOfUniverse;
2              
3 1     1   6 use Carp qw(cluck);
  1         1  
  1         113  
4              
5             sub new {
6 1     1 0 3 my $class = shift;
7              
8 1         11 bless {data => \@_}, __PACKAGE__;
9             }
10              
11 1     1 0 6 sub divulge { 42 }
12              
13             1;