File Coverage

test/html/plainblock.htm
Criterion Covered Total %
statement 40 40 100.0
branch n/a
condition 5 10 50.0
subroutine 4 4 100.0
pod n/a
total 49 54 90.7


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

Ok.
57              
58 2         4629  
59            
60