File Coverage

test/html/ifperl.htm
Criterion Covered Total %
statement 76 116 65.5
branch 14 36 38.8
condition n/a
subroutine 4 4 100.0
pod n/a
total 94 156 60.2


line stmt bran cond sub pod time code
1 1     1   9  
  1         2  
  1         173  
2            
3            
4 1     1   2 IF Metacommand in Embperl
  1         2  
5            
6 1         19  
7            
8              
9 1         2 [- $a = 1; $b = 0; $c = 5; $d = 'txt' -]
10 1         2  
  1         2  
  1         2  
  1         4  
  1         2  
11             a1
12 1     1   5 [* if ($a) { *]
  1     1   2  
  1         58  
  1         6  
  1         2  
  1         34  
  1         21  
  1         3  
13 1 50       5 a
14 1         20 [* } *]
  1         3  
15              
16 1         19 a2
17 1         3 [* if ( $a) { *]
18 1 50       4 a
19 1         17 [* } else { *]
  1         2  
20             not a
21 0         0 [* } *]
  0         0  
22              
23 1         19 a3
24 1         2 [* if ( $a
) { *]
25 1 50       3 a
26 1         18 [* } else {
*]
  1         2  
27             not a
28 0         0 [* }
*]
  0         0  
29              
30 1         19 a4
31 1         2 [*
if ($a) { *]
32 1 50       3 a
33 1         16 [*
} else {
*]
  1         2  
34             not a
35 0         0 [*
} *]
  0         0  
36              
37 1         18 a5
38 1         2 [* if ($a) {*]
39 1 50       4 a
40 1         17 [* if ( $b == 0) {*]
  1         1  
41 1 50       4 b is null
42 1         88 [* } else { *]
  1         3  
43             b is not null
44 0         0 [* } *]
  0         0  
45             [* } else{*]
46             not a
47 0         0 [* } *]
  0         0  
48              
49              
50             [* if ($a) {*]
51 1 50       4 a
52 1         19 [* if ( $b == 0) {*]
  1         1  
53 1 50       4 b is null
54 1         16 [* } else { *]
  1         2  
55             b is not null
56 0         0 [* } *]
  0         0  
57             [* } else {*]
58             not a
59 0         0 [* if ( $b == 0) {*]
  0         0  
60 0 0       0 b is null
61 0         0 [* } else { *]
  0         0  
62             b is not null
63 0         0 [* } *]
  0         0  
64             [* } *]
65              
66              
67             [* if (!$a) {*]
68 1 50       4 not a
69 0         0 [* if ( $b == 0) {*]
  0         0  
70 0 0       0 b is null
71 0         0 [* } else { *]
  0         0  
72             b is not null
73 0         0 [* } *]
  0         0  
74             [* } else {*]
75             a
76 1         17 [* if ( $b == 0) {*]
  1         2  
77 1 50       4 b is null
78 1         16 [* } else { *]
  1         2  
79             b is not null
80 0         0 [* } *]
  0         0  
81             [* } *]
82              
83              
84             [* if ($a) {*]
85 1 50       4 a
86 1         17 [* if ( $b == 0) {*]
  1         3  
87 1 50       4 b is null
    0          
    0          
88 1         15 [* } elsif ($c == 5) { *]
  1         2  
89             b is not null and c is 5
90 0         0 [* } elsif ($d eq 'txt') {*]
  0         0  
91             b is not null and c is not 5, but d is 'txt'
92 0         0 [* } else { *]
  0         0  
93             b is not null and c is not 5 and d is not 'txt'
94 0         0 [* } *]
  0         0  
95             [* } else {*]
96             not a
97 0         0 [* } *]
  0         0  
98              
99              
100             [- $ttrue = 'true'; $tfalse = '' -]
101 1         3  
  1         2  
  1         1  
102             [* if ( $ttrue) { *]
103 1 50       4 ttrue = true
104 1         18 [* } else { *]
  1         2  
105             ttrue = false
106 0         0 [* } *]
  0         0  
107              
108             [* if ( $tfalse) { *]
109 1 50       4 tfalse = true
110 0         0 [* } else { *]
  0         0  
111             tfalse = false
112 1         17 [* } *]
  1         3  
113              
114 1         15  
115            
116 1         1
117