File Coverage

test/html/nesting.htm
Criterion Covered Total %
statement 68 85 80.0
branch 4 12 33.3
condition 1 4 25.0
subroutine 4 4 100.0
pod n/a
total 77 105 73.3


line stmt bran cond sub pod time code
1 1     1   9
  1         2  
  1         238  
2            
3             Tests for Embperl - Nesting of html and meta commands
4 1     1   3
  1         1  
5              
6 1         20  
7            
8              
9 1         3 [-
10 1         2 $fdat{aa} = 11 ;
  1         4  
11 1         1 $fdat{bb} = 22 ;
12 1     1   7 $fdat{cc} = 33 ;
  1     1   2  
  1         71  
  1         6  
  1         3  
  1         40  
  1         3  
13 1         2 $fdat{dd} = 44 ;
14              
15 1         4 $t = 1 ;
16 1         2 $f = 0 ;
17              
18             -]
19             [- @ks = sort keys %fdat -]
20 1         3  
  1         9  
21 1         5
22 1         18
  5         162  
23 5 100       77 [+ $ks[$row] +][+ $fdat{$ks[$row] || ''} +]
  5         30  
  1         58  
  1         3  
24 4 50 50     33
  0         0  
  0         0  
25 4         68
26              
27 1         17 [#
28             [$if $t $]
29            
30            
31             [$endif$]
32             [+ $ks[$row] +][+ $fdat{$ks[$row] || ''} +]
33             [$if $t $]
34            
35            
36             [$endif$]
37             #]
38              
39 1 50       4 [$if $f $]
40 0         0
  0         0  
41 0         0
42 0         0 [$endif$]
43 0 0       0 [+ $ks[$row] +][+ $fdat{$ks[$row] || ''} +]
  0         0  
  0         0  
  0         0  
44 0 0 0     0 [$if $f $]
  0 0       0  
  0         0  
  0         0  
45 0         0
46 0         0
47             [$endif$]
48 0         0  
  1         19  
49              
50            
51              
52 1         2 [- $count = 0 -]
53 1         2
  1         3  
54 1         16 [$ while $count < 10 $]
  1         4  
55 1         18
  10         193  
56 10         170
[+ $count +]
  10         46  
57 10         183
58 10         15 [- $count++ -]
59 10         11 [$ endwhile $]
  10         25  
60 1         22
61 1         19  
62              
63            
64              
65 1         3 [- $count = 0 -]
66 1         2
  1         2  
67 1         20 [$ while $count < 10 $]
  1         6  
68 1         18
  10         206  
69 10         174
[- print OUT $count; -]
  10         19  
70 10         11
  10         66  
71 10         18 [- $count++ -]
72 10         189 [$ endwhile $]
  10         12  
  10         26  
73 1         19
74 1         20  
75              
76 1         3  
77            
78 1         4937