File Coverage

test/html/loop.htm
Criterion Covered Total %
statement 153 167 91.6
branch 8 8 100.0
condition n/a
subroutine 4 4 100.0
pod n/a
total 165 179 92.1


line stmt bran cond sub pod time code
1 1     1   9  
  1         2  
  1         168  
2            
3            
4 1     1   2 Test for Embperl - Loop Metacommand
  1         2  
5            
6 1         16  
7            
8              
9 1         2 [- $i = 0 -]
10 1         3 [$ while($i <= 2)$]
  1         1  
  1         4  
11 3         50 [+ $i++ +]
  3         21  
12 1     1   4 [$ endwhile $]
  1     1   2  
  1         47  
  1         4  
  1         2  
  1         26  
13 1         15  
14 1         2 [- $i = 0 -]
15 1         2 [$ while $i <= $#ffld $]
  1         2  
  1         4  
16 3         45 [+ $ffld[$i] +] = [+ $fdat{$ffld[$i]} +]
  3         15  
17 3         14 [- $j = 0 -]
  3         3  
18 3         4 [$ while $j <= $i $]
  3         4  
  3         7  
19 6         84 [+ $j++ +]
  6         27  
20             [$ endwhile $]
21 3         38
22 3         5 [- $i++ -]
23 3         3 [$ endwhile $]
  3         8  
24 1         16  
25              
26 1         2 [- %h = ('A' => 1, 'B' => 2, 'C' => 3) ; -]
27 1         2 [- @a = ('a', 'b', 'c', 'd') ; -]
  1         5  
28 1         2  
  1         3  
29             [- @hh = map { $_ => $h{$_} } sort keys %h -]
30 1         1 [$ while ($v = shift @hh, $k = shift @hh) $]
  1         9  
  3         7  
  1         5  
31 3         44 [+ "$v = $k" +]
  3         20  
32             [$ endwhile $]
33 1         89  
34 1         2 [- $i = 0 -]
35 1         2 [$ while $i <= $#a $]
  1         1  
  1         5  
36 4         61 [+ "\@a[$i] = $a[$i]" +]
  4         20  
37 4         8 [- $i++ -]
38 4         4 [$ endwhile $]
  4         8  
39 1         15  
40 1         1 [- $i = 0 -]
41 1         2 [$ do $]
  1         1  
  1         2  
42 4         58 [+ "\@a[$i] = $a[$i]" +]
  4         67  
43 4         8 [- $i++ -]
44 4         3 [$ until $i > $#a $]
  4         10  
45 1         16  
46 1         2 [$ foreach $v (@a) $]
47 4         60 [+ $v +]
  4         17  
48             [$ endforeach $]
49 1         14  
50 1         2 [$ foreach $v (1, 3, 5, 7, 9) $]
51 5         73 [+ $v +]
  5         18  
52             [$ endforeach $]
53 1         15  
54 1         3 [$ foreach $v (1..10) $]
55 10         142 [+ $v +]
  10         33  
56             [$ endforeach $]
57 1         14  
58 1         3 [$ foreach $v(1..5) $]
59 5         73 2:[+ $v +]
  5         16  
60             [$ endforeach $]
61 1         16  
62 1         2 [- $i = 0 -]
63 1         1 [$ do $]
  1         2  
  1         2  
64 4         81 [+ "\@a[$i] = $a[$i]" +]
  4         16  
65 4         7 [- @hh = map { $_ => $h{$_} } sort keys %h -]
66 4         5 [$ while ($v = shift @hh, $k = shift @hh) $]
  4         10  
  12         22  
  4         10  
67 12         176 [+ "$v = $k" +]
  12         45  
68 12         19 [$ foreach $fv (1, 3, 5, 7, 9) $]
69 60         887 [+ $fv +]
  60         190  
70             [$ endforeach $]
71 12         163 [$ foreach $fv (()) $]
  12         25  
72 0         0 [+ $fv +]
  0         0  
73 0         0 [- @hhh = map { $_ => $h{$_} } sort keys %h -]
74 0         0 [$ while ($wv = shift @hhh, $wk = shift @hhh) $]
  0         0  
  0         0  
  0         0  
75 0         0 [+ "$wv = $wk" +]
  0         0  
76             [$ endwhile $]
77 0         0 [$ endforeach $]
78 12         199 [$ endwhile $]
79 4         51 [- $i++ -]
  4         7  
80 4         5 [$ until $i > $#a $]
  4         11  
81 1         15  
82              
83 1         2 [- undef @a ; undef @b -]
84 1         1  
  1         4  
85 1         2 [$ if 1 $]
  1         1  
86 1         14  
87             x
88              
89 1         3 [$ foreach $a (@a) $]
90 0         0 [$ foreach $b (@b) $]
  0         0  
91 0         0 [$ endforeach $]
92 0         0 [$ endforeach $]
93 1         15  
94             y
95              
96             [$ endif $]
97 1         15  
98              
99 1         2 [- @bar = ('a', 'b', 'c'); -]
100 1         2 [$ foreach $foo (@bar) $]
  1         3  
  1         2  
101 3         44 [* next if ($foo eq 'c'); *]
  3         5  
102 3 100       8 [+ $foo +]
  2         7  
103 2         26 [$ endforeach $]
104 1         16  
105 1         2 [$ foreach $foo (@bar) $]
106 3         44 [* next if ($foo eq 'c'); *]
  3         4  
107 3 100       11 x = [+ $foo +] = z
  2         6  
108 2         26 [$ endforeach $]
109 1         15  
110 1         3 [$ foreach $foo (@bar) $]
111 3 100       55 [$if ($foo eq 'c') $][$ last $][$endif$]
  3         7  
112 1         14 last = [+ $foo +] = z
  2         8  
113 1         2 [$ endforeach $]
114 1         16  
115 2         31 [$ foreach $foo (@bar) $]
  1         2  
116 3 100       42 [$if ($foo eq 'b') $][$ next $][$endif$]
  3         7  
117 1         14 next = [+ $foo +] = z
  2         9  
118 1         2 [$ endforeach $]
119 1         14  
120 2         30
121 1         1