File Coverage

examples/Level1.pm
Criterion Covered Total %
statement 8 9 88.8
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 11 13 84.6


line stmt bran cond sub pod time code
1             package Level1;
2             use lib
3 1         6 '../lib',
4             'lib',
5 1     1   408 ;
  1         1  
6 1     1   124 use Level2;
  1         2  
  1         64  
7             #~ print Level2->check_return . "\n"; # expose this line to see the Level2 behaviour with no source filter
8             sub check_return{
9 1     1 0 1819 my $return = Level2->check_return . ' - ';
10             ###SpecialCase return $return . 'Level1 SpecialCase uncovered';
11 1         3 ###Family return $return . 'Level1 Joy uncovered';
12 0           return $return . 'No Level1 uncovering occured';
13             }
14              
15             1;