File Coverage

test/foo.pm
Criterion Covered Total %
statement 62 135 45.9
branch 14 84 16.6
condition 5 46 10.8
subroutine 12 17 70.5
pod n/a
total 93 282 32.9


line stmt bran cond sub pod time code
1            
2 1     1   1073 use Class::HPLOO ;#qw(nice) ;
  1         2  
  1         8  
3            
4             class foo {
5 1 50 0 1   115
  1 100 0 1   2  
  1 0 0 1   38  
  1 0 0 1   5  
  1 0 0 1   2  
  1 0 0 2   45  
  1 0 0 0   5  
  1 0 0 0   2  
  1 0 0 0   241  
  1 0 0 0   5  
  1 0 0 0   2  
  1 0 33 1   1126  
  1 0 33 1   6  
  1 0 33 1   2  
  1 0       147  
  2 0       8  
  2 0       9  
  1 0       4  
  1 0       115  
  1 0       72  
  0 0       0  
  0 0       0  
  0 0       0  
  0 0       0  
  0 0       0  
  0 0       0  
  0 0       0  
  0 0       0  
  0 50       0  
  0 50       0  
  0 50       0  
  0 50       0  
  0 50       0  
  0 50       0  
  0 50       0  
  0 50       0  
  0 0       0  
  0 0       0  
  0 50       0  
  0 0       0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  1         98  
  1         3  
  2         3  
  0         0  
  2         13  
  1         2  
  1         4  
  1         3  
  1         5  
  1         3  
  1         4  
  1         7  
  0         0  
  0         0  
  1         3  
  1         3  
  1         1  
  1         2  
  1         2  
  1         4  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  1         3  
  1         2  
  1         2  
  1         6  
  0         0  
  0         0  
  0         0  
  0         0  
  1         2  
6 1     1   12 vars ($global) ;
  1         2  
  1         243  
7             $global = "123456789" ;
8            
9 1 50 33 1   53 sub test( $arg ) {
  1 50 50     7  
  1         12  
  1         4  
  1         2  
  1         1  
10 1         2 my $ret ;
11 1         2 $ret .= ref($this) . "$arg\n" ;
12 1         2 $ret .= "--------------\n" ;
13 1         3 $ret .= <% html_test>( 123 ) ;
14 1         4 $ret .= "--------------\n" ;
15 1         3 $ret .= <% html_test2>( 123 , 456 , 789 ) ;
16 1         5 $ret .= "--------------\n" ;
17 1         5 return $ret ;
18             }
19            
20             <% html_test
21             MOHHHH $global
22             %>
23            
24             <% html_test2(@list)
25             MOHHHH @list
26             %>
27             }
28            
29