File Coverage

test/html/mix.htm
Criterion Covered Total %
statement 74 74 100.0
branch 4 4 100.0
condition 4 8 50.0
subroutine 4 4 100.0
pod n/a
total 86 90 95.5


line stmt bran cond sub pod time code
1 1     1   9  
  1         3  
  1         233  
2            
3            
4 1     1   2 Embperl Tests - Mix top level perl, with subroutines and metacommands
  1         2  
5            
6 1         20  
7            
8              
9             Here it starts with some HTML Text
10              
11             All values should be undefined:
12 1     1   7  
  1     1   2  
  1         64  
  1         7  
  1         2  
  1         36  
13 1         3 [* $a = 'global value' ; *]
14 1         2  
15 1   50     18 global value: $a = [+ $a || '' +]
  1         9  
16              
17 1         2 [* { local $a ; *]
18 1         4  
  1         2  
19 1   50     18 $a = [+ $a || '' +]
  1         11  
20              
21 1         2 [* $a = 'lokal value' ; *]
22 1         3  
23 1   50     33 lokal value: $a = [+ $a || '' +]
  1         9  
24              
25 1         3 [* } *]
26              
27 1   50     19 again global value: $a = [+ $a || '' +]
  1         7  
28              
29 1         3 [* @x = (1, 4 ,8, 17) ; *]
30 1         3  
31             [- $i = 0 -]
32 1         2 [$ while $i <= $#x $]
  1         2  
  1         5  
33 4         79 [+ $i +] = [+ $x[$i] +]
  4         18  
34 4         18 [* $j = 0 ; *]
  4         6  
35 4         4 [$ while $j <= $i $]
  4         11  
36 10         174 [+ $j++ +]
  10         51  
37             [$ endwhile $]
38 4         61
39 4         8 [* $i++ ; *]
40 4         11 [$ endwhile $]
41 1         17  
42              
43 1         2 [-
44 1         2 undef @b ;
  1         2  
45              
46 1         4 $b[0][0] = 'b1/1' ;
47 1         2 $b[1][0] = 'b2/1' ;
48 1         2 $b[1][1] = 'b2/2' ;
49 1         2 $b[2][0] = 'b3/1' ;
50 1         2 $b[2][1] = 'b3/2' ;
51 1         3 $b[2][2] = 'b3/3' ;
52              
53             -]
54              
55 1         18
  1         5  
56 4         142
  4         12  
57 10         269 [* $i = $row ; *][+ $i +][+ $b[$row][$col] +]
  10         14  
58 10         10
59 10         152
60 10         35  
61 10 100       43  
  4 100       11  
  1         67  
  1         3  
  3         213  
  3         7  
62 6         99  
63            
64 3         52