File Coverage

test/html/keepreq.htm
Criterion Covered Total %
statement 32 32 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 36 36 100.0


line stmt bran cond sub pod time code
1 1     1   10  
  1         3  
  1         204  
2 2         5 [-
3 2         5  
  2         5  
4 2     2   5 $r = shift ;
  2         4  
  2         9  
5             $p = $r -> param ;
6 2         37  
7             -]
8 2         31  
9             r before
10 2         12 global: [+ $Embperl::TEST::r +]
11 2         11 lokal: [+ $r +]
12 1     1   5  
  1     1   3  
  1         57  
  1         5  
  1         1  
  1         31  
13             p before
14 2         9 global: [+ $Embperl::TEST::p +]
15 2         16 lokal: [+ $p +]
16              
17 2         4 [-
18 2         2  
  2         4  
19 2         8 $Embperl::TEST::r = $r ;
20             $Embperl::TEST::p = $p ;
21              
22             -]
23 2         34  
24             r after
25 2         10 global: [+ $Embperl::TEST::r +]
26 2         6 lokal: [+ $r +]
27              
28             p after
29 2         7 global: [+ $Embperl::TEST::p +]
30 2         9 lokal: [+ $p +]