File Coverage

test/html/tagscan.htm
Criterion Covered Total %
statement 153 163 93.8
branch 9 20 45.0
condition 0 2 0.0
subroutine 4 4 100.0
pod n/a
total 166 189 87.8


line stmt bran cond sub pod time code
1 1     1   11
  1         2  
  1         199  
  2         22  
2 2         9
3             Some tests for Embperl
4 2     2   7
  2         5  
  2         8  
5              
6 2         26 [- $a = ' and more' -]
  2         5  
7 2         5  
  2         5  
8 2         10
9 2         20
  2         13  
10 2         8
11 2         19
  2         7  
12 1     1   55
  1     1   2  
  1         75  
  1         6  
  1         2  
  1         38  
  2         18  
  2         8  
13 2         19
14 2         19
15              
16 2         8
17            
18 2         19  
19 2         18
  2         7  
20            
21 2         18  
22 2         18
  2         8  
23            
24 2         19  
25 2         21
  2         9  
26            
27 2         19  
28 2         22
  2         7  
29            
30 2         19  
31 2         21
34              
35 2         8
36            
37 2         19  
38 2         20
  2         7  
39 2         12
40 2         5
41 2         3  
  2         3  
42 2         11 Here it starts with some HTML Text
43 2         23  
44 2         4 [- $aaa = 1 -]
45 2 50       4
  2         3  
  2         7  
46 2 50       18
  2         6  
47 2         20  
  2         7  
  0         0  
48 0 50       0
  2         8  
49 2 50       20
  2         19  
  2         7  
50 2         24  
  2         6  
  0         0  
51 0         0  
52 2         20 [- $fdat{ VERSION } = 3 -]
  2         4  
53 2 50       22 = 3 $]
  2         4  
  2         6  
  2         7  
54 2         19 WIDTH=35 [$ endif $]>
55 2         20  
  2         19  
56 2 50       9 = 4 $]
57 0         0 WIDTH=35 [$ endif $]>
58 2         28  
59 2 50       9 = 3 $]
  2         9  
60 2         21 foo="" [$ endif $]>
61 2         21  
62 2 50       8 = 4 $]
  2         8  
63 0         0 foo="" [$ endif $]>
64 2         26  
65 2         4 [- @ks = sort keys %idat -]
66 2         2  
  2         9  
67 2         8
68 2         19
  2         17  
69 2 50       18 [+ $ks[$row] +][+ $fdat{$ks[$row] || ''} +]
  2         11  
  2         20  
  2         7  
70 0 0 0     0
  0         0  
  0         0  
71 0         0
72              
73 2         23 [- $stuff = ("X" x 79 . "\n") x 26; -]
  2         4  
74 2         4 Testing ... length of STUFF=[+ length($stuff) +]
  2         9  
  2         12  
75 2         48
76 2         20  
  2         28  
77 2         7 [- $stuff = "X" x 2046; -]
78 2         4 Testing ... length of STUFF=[+ length($stuff) +]
  2         7  
  2         11  
79 2         50
80 2         19  
  2         16  
81 2         6 [- $stuff = "X" x 2047; -]
82 2         2 Testing ... length of STUFF=[+ length($stuff) +]
  2         6  
  2         13  
83 2         48
84 2         22  
  2         16  
85 2         5 [- $stuff = "X" x 2048; -]
86 2         4 Testing ... length of STUFF=[+ length($stuff) +]
  2         7  
  2         14  
87 2         47
88 2         21  
  2         18  
89 2         6 [- $stuff = "X" x 2049; -]
90 2         5 Testing ... length of STUFF=[+ length($stuff) +]
  2         5  
  2         14  
91 2         41
92 2         23  
  2         15  
93 2         5 [- $stuff = "X" x 2050; -]
94 2         4 Testing ... length of STUFF=[+ length($stuff) +]
  2         6  
  2         13  
95 2         42
96 2         19  
  2         14  
97              
98 2         6 [- $stuff = "X" x 30000; -]
99 2         3 Testing ... length of STUFF=[+ length($stuff) +]
  2         58  
  2         12  
100 2         527
101 2         19  
  2         95  
102 2         14 <[+ 'b' +]>
103              
104 2         6 [$ foreach $tag ('a', 'b', 'c') $]
105 6         103 <[+ $tag +]>
  6         32  
106             [$endforeach$]
107 2         24  
108              
109 2         4  
110            
111 2         10076