File Coverage

test/html/table.htm
Criterion Covered Total %
statement 407 448 90.8
branch 101 124 81.4
condition 4 8 50.0
subroutine 4 4 100.0
pod n/a
total 516 584 88.3


line stmt bran cond sub pod time code
1 1     1   9
  1         2  
  1         182  
2            
3             HTML table tag in Embperl
4 2     2   7
  2         4  
5              
6 2         24
7              
8              
9            

$tabmode = default

10              
11            

Display an two dimensional array with one, two and three columns !
12 1     1   5 Please take a look at the source in your browser to see the difference
  1     1   3  
  1         60  
  1         6  
  1         2  
  1         31  
13              
14 2         7 [-
15 2         2 undef @a ;
  2         6  
16 2         5 undef @b ;
17              
18 2         6 $a[0][0] = 'a1/1' ;
19 2         5 $a[1][0] = 'a2/1' ;
20 2         6 $a[1][1] = 'a2/2' ;
21 2         5 $a[2][0] = 'a3/1' ;
22 2         4 $a[2][1] = 'a3/2' ;
23 2         6 $a[2][2] = 'a3/3' ;
24              
25 2         6 $b[0][0] = 'b1/1' ;
26 2         5 $b[1][0] = 'b2/1' ;
27 2         5 $b[1][1] = 'b2/2' ;
28 2         7 $b[2][0] = 'b3/1' ;
29 2         5 $b[2][1] = 'b3/2' ;
30 2         4 $b[2][2] = 'b3/3' ;
31              
32 2         4 $maxcol=99 ;
33             -]
34             $a[0][[0] = '1/1' ;
35 2         20 $a[1][[0] = '2/1' ;
36             $a[1][[1] = '2/2' ;
37             $a[2][[0] = '3/1' ;
38             $a[2][[1] = '3/2' ;
39             $a[2][[2] = '3/3' ;
40              
41            

$tabmode = default

42              
43 2         9
44 8         129
45 8 100       63 [+ $a[$row][0] +]
  8         55  
  2         52  
  2         5  
46 6         55
47            
48 2         21
49 2         49
  2         9  
50 8 100       120 [+ $a[2][$col] +]
  8         46  
  2         65  
  2         5  
51            
52 2         20
53 2         21  
54              
55 2         11
56 8         1022
57 8 100       76 before[+ $a[$row][0] +]
  8         38  
  2         49  
  2         5  
58 6         58
59            
60 2         18
61 2         17
  2         7  
62 8 100       112 before[+ $a[2][$col] +]
  8         39  
  2         55  
  2         6  
63            
64 2         21
65 2         23  
66 2         10
67 8         116
68 8 100       63 [+ $a[$row][0] +]after
  8         35  
  2         69  
  2         5  
69 6         52
70            
71 2         17
72 2         18
  2         10  
73 8 100       136 [+ $a[2][$col] +]after
  8         41  
  2         47  
  2         4  
74            
75 2         17
76 2         18
  2         7  
77 8         117
78 8 100       64 before[+ $a[$row][0] +]after
  8         36  
  2         49  
  2         4  
79 6         61
80            
81 2         18
82 2         19
  2         7  
83 8 100       485 before[+ $a[2][$col] +]after
  8         37  
  2         106  
  2         4  
84            
85 2         18
86 2         17  
87 2         8
88 2         17
89 2 50       18 [+ $c[$row] +]
  2         11  
  2         16  
  2         5  
90 0         0
91            
92 2         24
93 2         17
  2         11  
94 2 50       19 [+ $c[$col] +]
  2         12  
  2         19  
  2         4  
95            
96 2         22
97 2         20  
98              
99 2         8
100 8         123
  8         20  
101 20 100       295 [+ $a[$row][$col] +]
  20 100       88  
  8         16  
  2         47  
  2         6  
  6         159  
  6         9  
102 12         116
103            
104 6         57  
105              
106 2         18  
107 2         8
108 8         151
  8         19  
109 20         258
110 20         41
111 80         1305
  80         8132  
112 200 100       2892 [+ $b[$row][$col] +]
  200 100       819  
  80         116  
  20         491  
  20         32  
  60         1564  
  60         75  
113 120         1098
114            
115 60         570  
116 20 100       79 [+ $a[$row][$col] +]
  8 100       14  
  2         373  
  2         4  
  6         1105  
  6         9  
117 20         151
  12         104  
118            
119 6         56  
120            
121 2         18
  2         16  
  2         9  
122 8 100       110 [+ $b[2][$col] +]
  8         37  
  2         50  
  2         3  
123            
124 2         19
  2         7  
125 8 100       113 [+ $a[2][$col] +]
  8         41  
  2         56  
  2         3  
126            
127 2         18
128 2         18  
129 2         17
130 6         91
131 6 100       56 [+ $a[$row+1][0] +]
  6         32  
  2         87  
  2         5  
132 4         38
133            
134 4 50       33 [+ $a[$row][0] +]
  4         21  
  0         0  
  0         0  
135 4         40
136            
137 2         24  
138            
139 2         20
140 2         19 [+ $a[$rows+1][0] +]
  2         56  
141 2         190
142            
143 2         55 [+ $a[$rows][0] +]
  2         347  
144 2         31
145            
146 2         25 [+ $rows +]
  2         8  
147 2         21
148 2         23
149              
150 2         11
151 8         128
  8         22  
152 20 100       310 [+ $a[$row][$col] +]
  20 100       128  
  0 100       0  
  0 0       0  
  0 50       0  
  0         0  
  0         0  
153 20         173
154 20 100       89
  8 100       15  
  2         70  
  2         6  
  6         224  
  6         9  
155 12         117  
156              
157 6         67 [- $a[0][1] = 'a1/2' ; -]
  2         8  
158 2         5  
  2         7  
159 2         23
  2         9  
160 2         19
  4         52  
  4         12  
161 8 50       110 [+ $a[$row*2][$col*2] +]
  8 100       36  
  2         9  
  0         0  
  0         0  
  2         52  
  2         4  
162 6 50       47 [+ $a[$row*2][$col*2+1] +]
  6 100       30  
  2         10  
  0         0  
  0         0  
  2         58  
  2         4  
163 4         39
164 4         12
165 4 100       38 [+ $a[$row*2+1][$col*2] +]
  6 100       71  
  6         37  
  4         14  
  2         89  
  2         5  
  2         71  
  2         4  
166 2 0       21 [+ $a[$row*2+1][$col*2+1] +]
  2 50       15  
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
167 2         23
168            
169 2         21  
170 2         4 [- $a[0][1] = undef ; -]
171 2         44  
  2         4  
  2         4  
172              
173             [-
174 2         4  
  2         6  
175 2         3 undef @regs ;
176             undef @kats ;
177 2         10  
178 2         6 $regs[0]{Id} = 'Pfalz' ;
179             $regs[1]{Id} = 'Rheinhessen' ;
180 2         6  
181 2         5 $kats[0]{Id} = 'Kultur' ;
182             $kats[1]{Id} = 'Sport' ;
183              
184             -]
185 2         20
186 2         18
187 2         31
  2         8  
188 6         87
189 6         49
190 6 100       43 [+$regs[$row]{Id}+]
  2         49  
  2         4  
191 4         14
192 4 50       19
  0         0  
  0         0  
193 4         38
194 2         9
195 2         18
  6         161  
196 6         46

197 6 100       38 [+$kats[$row]{Id}+]
  2         59  
  2         5  
198 4         11
199 4 50       18
  0         0  
  0         0  
200 4         38
201            
202 2         19
203 2         20
204 2         16  
205 2         5 [-
206 2         3 $kats[2]{Id} = 'Veranstaltungen' ;
  2         6  
207 2         7 $kats[3]{Id} = '' ;
208              
209             -]
210              
211 2         18
212 2         16
213 2         16
  2         11  
214 6         93
215 6         49
216 6 50       8 [- print LOG "row= $row regs=$regs[0]{Id}\n" ; 1 ; -]
  6         9  
217 6 50       40 [- print LOG "1row= $row regs=$regs[0]{Id}\n" ; $cmp = $regs[0]->{Id} ; print LOG "2row= $row regs=$regs[0]{Id}\n" ; 1 ; -]
  6         25  
  6         5  
218 0         0 [- while (($k, $v) = each (%{$regs[0]})) { print LOG "$v=$k;\n" ; } -]
  0         0  
  6         26  
  6         13  
  6         24  
  6         20  
219 0 50 50     0 [$if ($cmp || '') ne '' $]
  0         0  
  6         6  
  6         17  
  12         44  
  6         23  
  6         22  
220 6 100       57 [+$regs[$row]{Id}+]
  6         6  
  6         29  
  6         39  
  2         50  
  2         7  
221 4         12 [$endif$]
222 4 50       51
  0         0  
  0         0  
  4         37  
223 4         45
224            
225 2         18
  2         7  
226 10         160
227 10         77

228 10 50       16 [- print LOG "row= $row regs=$kats[0]{Id}\n" ; 1 ; -]
  10         11  
229 10 100       43 [- $cmp = $kats[$row]{Id} -]
  10         32  
  10         12  
230 0 100 100     0 [$if ($cmp || '') ne '' $]
  0         0  
  10         38  
  8         31  
231 2 50       37 [+$kats[$row]{Id}+]
  2         6  
  6         49  
  6         34  
  0         0  
  0         0  
232 6         15 [$endif$]
233 6 50       37
  0         0  
  0         0  
  8         70  
234 8         69
235            
236 2         20
237 2         15
238 2         18
239              
240 2         4 [-
241             # build tight loop table with array data, multidimensional 5x6
242 2         3 @array = sort ("Hello", "World", "2000", "Hello", "World", "2000");
  2         18  
243 2         11 @multi = (\@array, \@array, \@array, \@array, \@array);
244             -]
245 2         8
246 2 100       17
  12 50       231  
  12         79  
  0         0  
  0         0  
247 12 100       26 [+ $multi[$row][$col] +]
  72 100       268  
  12         35  
  2         58  
  2         4  
  10         249  
  10         14  
248 72         1096
  60         549  
249            
250 10         87  
251              
252 2         19
[+ $a[$row][0] +]
  2         12  
253 8         136
[+ $a[2][$col] +]
254 2         19
[+ $a[$row][$col] +]
  2         9  
255 8         84  
  2         10  
  8         113  
256 8 100       43
  2         50  
  2         3  
  8         127  
  8         18  
  2         33  
257 8 100       43
  2         49  
  2         5  
  20         268  
  8         158  
258 2 100       19 [+ $a[$icon_height=$row][0] +]
  20 100       70  
  8 100       16  
  2         53  
  2         5  
  6         138  
  6         10  
  8         62  
  8         37  
  2         51  
  2         5  
259 2         16
  12         106  
260 6         13 [- $icon_width = 5 ; -]
261 6         54  
  6         9  
  6         9  
262            
263 2 50       17 [$ if (($server_type eq "iii")) $]
  6         49  
  6         64  
264 0         0 SRC="/i/www.[+ $server_type +]/[+ $badge || "iiilogo_narrow_if" +].gif" WIDTH="[+ $icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
  0         0  
265 0   0     0 [$ else $]
266 0   50     0 SRC="/icons/[+ $badge || "iiilogo_narrow_else" +].gif" WIDTH="[+ $icon_width +]" HEIGHT="[+ $icon_height +]" BORDER="0"
  6         152  
  6         41  
267 0         0 [$ endif $]
  6         28  
268 6 50       30 [$ if ($badge eq "iit") $]
  6         57  
  6         51  
269 0         0 ALT="iit logo"
270             [$ else $]
271 6         79 ALT="iii logo"
272             [$ endif $]>
273 6         53
274 6         57
275            
276 2         21  
277 2         9
278 8         126
279 8 100       61 [+ $a[$row][0] +]
  8         34  
  2         48  
  2         4  
280 6         227
281            
282 2         16
283 2         18
  2         10  
284 8 100       129 [+ $a[2][$col] +]
  8         38  
  2         66  
  2         3  
285            
286 2         19
287 2         17  
288              
289 2         5
290