File Coverage

test/html/inc.htm
Criterion Covered Total %
statement 49 80 61.2
branch n/a
condition 10 20 50.0
subroutine 7 8 87.5
pod n/a
total 66 108 61.1


line stmt bran cond sub pod time code
1 1     1   8  
  1     1   2  
  1         182  
  1         8  
  1         1  
  1         176  
2             Here it starts with some HTML Text
3              
4             All values should be undefined at the first include and
5 6     6   22 apear at the second include:
  0     0      
6            

7              
8 6   100     33 $a = [+ $a || '' +]
  0   0        
9 6   100     26 $b = [+ $b || '' +]
  0   0        
10 6   100     32 $c = [+ $c || '' +]
  0   0        
11 6   100     27 $d = [+ $d || '' +]
  0   0        
12 1   100 1   6 $e = [+ $e || '' +]
  1   0 1   2  
  1     1   42  
  1     1   5  
  1         2  
  1         28  
  1         5  
  1         2  
  1         58  
  1         5  
  1         2  
  1         29  
  6         27  
  0            
13              
14              
15             First of all assign a value:
16 6         11 [- $a = '(this is the value in $a)' -]
  0            
17 6         9  
  6         10  
  0            
  0            
18             Now we have some 'Umlaute':
19 6         13  
  0            
20              
21 6         8 [- $b = "$a äöü" -]
  0            
22 6         8  
  6         14  
  0            
  0            
23             Now lets look what we are getting from this:
24 6         12 [+ $a +] [+ $b +]
  6         33  
  0            
  0            
25 6         20  
  0            
26 6         23 And now a and b together: [+ "$a$b" +]
  0            
27              
28             Here we have some HTML tags within the perl code, Embperl will delete them!
29              
30 6         23 [+ $c = 6 + 17 * 3 +]
  0            
31 6         19 [+ "SELECT *
FROM a ORDER BY b USING <; Hi There>" +]
  0            
32              
33             Here we have something which looks like a HTML tag, but does not start with
34             a character, Embperl does not change them!
35              
36 6         19 [+ "SELECT * FROM a ORDER BY b USING <; Hi There>" +]
  0            
37              
38             Embperl will also translate HMTL escapes to the right characters i.e. $a &lt; 6 will get the perl expression $a < 6:
39              
40 6         9 [- $e = 2 -]
  0            
41 6         8 [+ $d = $e < 6 +]
  6         7  
  6         17  
  0            
  0            
  0            
42              
43 6         13 Now they should have a value
  0            
44              
45 6         17 $a = [+ $a +]
  0            
46 6         21 $b = [+ $b +]
  0            
47 6         18 $c = [+ $c +]
  0            
48 6         14 $d = [+ $d +]
  0            
49 6         15 $e = [+ $e +]
  0            
50              
51            

Ok.
52