File Coverage

examples/Level1.pm
Criterion Covered Total %
statement 14 15 93.3
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 19 21 90.4


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