File Coverage

test/html/nesting2.htm
Criterion Covered Total %
statement 90 92 97.8
branch 11 12 91.6
condition 1 2 50.0
subroutine 4 4 100.0
pod n/a
total 106 110 96.3


line stmt bran cond sub pod time code
1 1     1   8
  1         4  
  1         223  
2            
3             Tests for Embperl - Nesting of html and meta commands 2
4 1     1   2
  1         2  
5              
6 1         21  
7            
8              
9 1         3 [-
10 1         2 $fdat{aa} = 11 ;
  1         3  
11 1         2 $fdat{bb} = 22 ;
12 1     1   7 $fdat{cc} = 33 ;
  1     1   2  
  1         65  
  1         7  
  1         2  
  1         35  
  1         2  
13 1         4 $fdat{dd} = 44 ;
14              
15 1         1 $t = 1 ;
16 1         2 $f = 0 ;
17              
18 1         5 %a2 = ( 'a' => 1, 'b' => 2 ) ;
19 1         8 @a2 = sort keys %a2 ;
20              
21             -]
22             [- @ks = sort keys %fdat -]
23 1         4  
  1         6  
24 1         5
25 1         21
  5         163  
26 5 100       80 [+ $ks[$row] +][+ $fdat{$ks[$row] || ''} +]
  5         31  
  1         73  
  1         2  
27 4 50 50     30
  0         0  
  0         0  
28 4         69
29              
30 1         34 === dl.1
31              
32 1         7
[+ $ks[$row] +]
  • [+ $a2[$row] +]
33 5         152  
34 5 100       24 === dl.2
  1         56  
  1         6  
35 4         10  
36 12         344
[+ $ks[$row] +]
    [+ $a2[$row] +]
  1         5  
37 12 100       64  
  4         212  
  4         6  
  5         151  
38 5 100       24 === foreach.1
  1         54  
  1         3  
39 4         70  
  4         12  
40 12         336 [- $i = 1 -]
  1         3  
41 1 100       19 [$foreach $a (@ks) $]
  12         69  
  4         165  
  4         5  
  1         3  
  1         3  
  1         3  
42 4         72 [$foreach $b (@a2) $]
  4         9  
43 4         71 [+ $i +]:[+ $a +] -> [+ $b +]
  8         166  
  8         28  
44 8         19 [$endforeach$]
45 1         17 [- $i++ -]
  8         27  
  4         65  
  4         8  
46 4         6 [$endforeach$]
  4         6  
47 1         17  
48             .
49             === foreach.2
50              
51 1         3 [- $i = 1 -]
52 1         1 [$foreach $a (@ks) $]
  1         4  
  1         3  
53 4         91 [$foreach $b (@a2) $]
  4         8  
54 8         157 [+ $i +]:[+ $a +] -> [+ $b +]
  8         153  
55 8         30 [- $i++ -]
  8         13  
56 8         23 [$endforeach$]
  8         8  
  8         14  
57 4         81 [$endforeach$]
58 1         18