File Coverage

test/attr.pm
Criterion Covered Total %
statement 190 328 57.9
branch 74 214 34.5
condition 10 59 16.9
subroutine 27 37 72.9
pod n/a
total 301 638 47.1


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2            
3 1     1   1074 use Class::HPLOO ;
  1         2  
  1         9  
4            
5             class Foo {
6 1 100 66 1   122
  1 0 0 1   2  
  1 50 0 1   33  
  1 100 0 1   5  
  1 50 0 0   2  
  1 100 0 1   41  
  1 100 0 9   5  
  1 50 0 1   1  
  1 50 0 0   206  
  1 0 0 11   4  
  1 0 0 0   2  
  1 100 0 2   4055  
  0 0 50 0   0  
  0 50 33 1   0  
  0 0 33 0   0  
  1 0 33 10   15  
  1 0 0 0   3  
  6 50   0   14  
  6 0   0   12  
  6 50   1   22  
  6 50   0   25  
  6 0   1   7  
  6 0   1   11  
  6 100   2   9  
  6 50   1   7  
  6 50   1   8  
  6 100   1   9  
  6 100   1   5  
  6 50   1   12  
  6 100   0   10  
  6 50   1   23  
  6 100   1   16  
  0 50   1   0  
  0 50   1   0  
  0 50       0  
  0 100       0  
  0 50       0  
  6 50       18  
  6 0       16  
  6 0       13  
  6 50       16  
  6 50       10  
  6 50       5  
  6 50       10  
  1 50       3  
  1 100       4  
  5 100       14  
  6 0       5  
  6 0       517  
  6 0       7  
  6 0       260  
  9 0       12  
  9 0       9  
  9 0       77  
  1 0       4  
  0 0       0  
  0 0       0  
  0 0       0  
  0 0       0  
  1 50       2  
  1 50       2  
  1 0       2  
  1 50       2  
  1 0       6  
  2 0       2  
  2 0       18  
  2 0       8  
  1 0       3  
  1 0       2  
  2 0       12  
  0 0       0  
  0 0       0  
  2 0       3  
  2 0       10  
  0 0       0  
  0 0       0  
  1 0       3  
  1 50       5  
  0 50       0  
  0 100       0  
  0 0       0  
  0 0       0  
  0 50       0  
  0 0       0  
  1 50       2  
  1 50       2  
  1 50       5  
  1 50       10  
  1 50       2  
  2 0       16  
  0 50       0  
  0 50       0  
  0 50       0  
  0 0       0  
  0 0       0  
  0 50       0  
  0 0       0  
  1 50       2  
  1 0       3  
  1 50       2  
  1 50       7  
  1 50       2  
  1 50       4  
  1         1  
  1         6  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  1         2  
  1         4  
  1         2  
  1         4  
  6         48  
  0         0  
  11         170  
  11         18  
  11         28  
  1         4  
  1         4  
  1         2  
  1         8  
  10         41  
  4         8  
  4         11  
  4         12  
  0         0  
  4         10  
  10         112  
  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  
  2         5  
  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         2  
  1         1  
  1         3  
  1         4  
  1         16  
  0         0  
  1         3  
  1         5  
  0         0  
  0         0  
  0         0  
  1         4  
  1         5  
  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  
  10         11  
  10         11  
  10         50  
  10         33  
  1         4  
  1         3  
  1         2  
  1         351  
  1         4  
  0         0  
  0         0  
  0         0  
  1         2  
  1         4  
  1         3  
  10         68  
  0         0  
  0         0  
  0         0  
  1         2  
  1         5  
  0         0  
  0         0  
  0         0  
  1         2  
  1         5  
  1         5  
  0         0  
  1         2  
  1         6  
  2         5  
  2         10  
  1         2  
  1         6  
  1         96  
  0         0  
  0         0  
  0         0  
  0         0  
  1         2  
  1         4  
  1         5  
  1         7  
  1         2  
  1         5  
  1         3  
  1         6  
  1         8  
  0         0  
  0         0  
  0         0  
  0         0  
  1         3  
  1         2  
  1         2  
  1         1  
  1         3  
  1         5  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  1         2  
  1         1  
  1         3  
  1         5  
  0         0  
  0         0  
  0         0  
  0         0  
  1         3  
  1         4  
  1         3  
  1         5  
  1         2  
  1         3  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
  1         3  
  1         6  
  1         5  
  1         3  
  1         5  
  1         77  
  1         6  
  1         4  
  1         3  
  1         4  
  1         2  
  1         4  
  0         0  
  1         3  
  1         3  
  1         2  
  1         4  
  1         7  
  1         4  
  1         3  
7             attr( name , int age , float size , array list , ref array &mytype special , sub call) ;
8            
9             sub mytype {
10 2 50 33 2   1 my $val = shift ;
  2 50 50     5  
  2         6  
  2         14  
  2         2  
11 2         3 $val =~ s/(.)\1+/$1/gs ;
12 2         13 return $val ;
13 2         10 }
14            
15             sub call {
16 2 50 33 2   2 return "CAL<". ref($this) ."> [@_]" ;
  2 50 50     5  
  2         15  
  2         7  
  2         2  
17 2         12 }
18            
19             }
20            
21