File Coverage

test/html/loopperl.htm
Criterion Covered Total %
statement 102 106 96.2
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 106 110 96.3


line stmt bran cond sub pod time code
1 1     1   9  
  1         3  
  1         184  
2            
3            
4 1     1   2 Test for Embperl - Loop Metacommand
  1         2  
5            
6 1         20  
7            
8              
9 1         2 [- $i = 0 -]
10 1         2 [* while ($i <= $#ffld) { *]
  1         2  
11 1         7 [+ $ffld[$i] +] = [+ $fdat{$ffld[$i]} +]
  3         18  
12 1     1   5 [- $j = 0 -]
  1     1   3  
  1         58  
  1         4  
  1         3  
  1         30  
  3         57  
  3         17  
  3         4  
13 3         4 [* while ($j <= $i) { *]
  3         5  
14 3         9 [+ $j++ +]
  6         28  
15 6         100 [* } *]
  6         17  
16            
17 3         48 [- $i++ -]
  3         5  
18 3         4 [* } *]
  3         8  
19              
20             [- $i = 0 -]
21 1         3 [* while($i <= 2) {*]
  1         3  
22 1         4 [+ $i++ +]
  3         12  
23 3         51 [* } *]
  3         10  
24              
25              
26             [- %h = ('A' => 1, 'B' => 2, 'C' => 3) ; -]
27 1         3 [- @a = ('a', 'b', 'c', 'd') ; -]
  1         6  
28 1         2  
  1         4  
29             [* @hh = map { $_ => $h{$_} } sort keys %h ;
30 1         10 while ($v = shift @hh, $k = shift @hh) { *]
  3         8  
31 1         6 [+ "$v = $k" +]
  3         20  
32 3         56 [* } *]
  3         10  
33              
34             [- $i = 0 -]
35 1         3 [* while ($i <= $#a) { *]
  1         2  
36 1         6 [+ "\@a[$i] = $a[$i]" +]
  4         29  
37 4         70 [- $i++ -]
  4         6  
38 4         6 [* } *]
  4         13  
39              
40             [- $i = 0 -]
41 1         2 [* do { *]
  1         2  
42 1         2 [+ "\@a[$i] = $a[$i]" +]
  4         20  
43 4         72 [- $i++ -]
  4         6  
44 4         4 [* } until ($i > $#a) ; *]
  4         15  
45              
46             [* foreach $v (@a) { *]
47 1         4 [+ $v +]
  4         21  
48 4         87 [* } *]
  4         8  
49              
50             [* foreach $v (1, 3, 5, 7, 9) { *]
51 1         4 [+ $v +]
  5         22  
52 5         88 [* } *]
  5         8  
53              
54             [* foreach $v (1..10) { *]
55 1         5 [+ $v +]
  10         31  
56 10         178 [* } *]
  10         19  
57              
58             [- $i = 0 -]
59 1         3 [* do { *]
  1         3  
60 1         2 [+ "\@a[$i] = $a[$i]" +]
  4         18  
61 4         69 [* @hh = map { $_ => $h{$_} } sort keys %h ;
  4         9  
62 4         13 while (($v = shift @hh, $k = shift @hh)) { *]
  12         29  
63 4         16 [+ "$v = $k" +]
  12         43  
64 12         207 [* foreach $fv (1, 3, 5, 7, 9) { *]
  12         19  
65 12         19 [+ $fv +]
  60         157  
66 60         1171 [* } *]
  60         110  
67             [* foreach $fv (1) { *]
68 12         20 [+ $fv +]
  12         36  
69 12         181 [- @hhh = map { $_ => $h{$_} } sort keys %hhh ; -]
  12         16  
70 12         14 [* while (($wv = shift @hhh, $wk = shift @hhh)) { *]
  12         26  
  0         0  
71 12         61 [+ "$wv = $wk" +]
  0         0  
72 0         0 [* } *]
  0         0  
73             [* } *]
74             [* } *]
75             [- $i++ -]
76 4         6 [* } until ($i > $#a) ; *]
  4         14  
77              
78 1         21  
79            
80 1         2