line |
true |
false |
branch |
67
|
0 |
6 |
if $$vars{'templ_extra'}{'nospaces'} |
72
|
4 |
16 |
if (defined $$vars{'templ_vars'}{$_}) { } |
|
1 |
15 |
elsif ($$func{$_}) { } |
84
|
0 |
6 |
if (defined $$vars{'templ_extra'}{'oreturn'}) { } |
|
0 |
6 |
elsif ($ENV{'MOD_PERL'}) { } |
|
6 |
0 |
elsif ($$vars{'templ_extra'}{'source'}) { } |
92
|
0 |
0 |
if $$vars{'templ_extra'}{'source'} |
103
|
1 |
5 |
if ($@) |
104
|
0 |
1 |
if ($ENV{'MOD_PERL'}) { } |
112
|
0 |
6 |
if $$vars{'templ_extra'}{'source'} and $$vars{'templ_extra'}{'oreturn'} |
115
|
0 |
6 |
if $$vars{'templ_extra'}{'oreturn'} |
127
|
6 |
0 |
if (open FH, '<' . $file) { } |
151
|
4 |
52 |
$2 =~ /^#/ ? : |
154
|
5 |
51 |
if ($l eq 'ELSE') { } |
|
16 |
35 |
elsif ($l eq 'END' or $l eq '/IF' or $l eq '/FOREACH') { } |
|
0 |
35 |
elsif ($l =~ /^INCLUDE\s+(\-[a-z]+)?\s?(.*)/) { } |
|
14 |
21 |
elsif ($l =~ /^IF\s?(.*)/) { } |
|
1 |
20 |
elsif ($l =~ /^UNLESS\s?(.*)/) { } |
|
1 |
19 |
elsif ($l =~ /^FOREACH\s+(\w+)\s?=\s?(.*)/) { } |
|
1 |
18 |
elsif ($l =~ /^FOR\s?(.*)/) { } |
|
1 |
17 |
elsif ($l =~ /^(ELSIF|^ELSEIF)\s?(.*)/) { } |
|
2 |
15 |
elsif ($l =~ /^\&(\w+)\((.*)\)/) { } |
162
|
0 |
0 |
if ($$templ_vars{$j} =~ m[^(.*)/([\w\-\.]+)$]) { } |
163
|
0 |
0 |
if not $i or $i eq '-f' and -f $1 . '/' . $2 |
168
|
0 |
0 |
if not $i or $i eq '-f' and -f $templ_dir . '/' . $j |
202
|
30 |
26 |
if ($c) |
210
|
0 |
8 |
if ($4) { } |
|
0 |
8 |
elsif ($1) { } |
227
|
8 |
51 |
if ($j eq '==') { } |
|
2 |
49 |
elsif ($j eq '!=') { } |
232
|
1 |
58 |
if ($i eq '0') |
233
|
0 |
1 |
if ($n[$#n] =~ /\s+?eq\s+?/) { } |
|
0 |
1 |
elsif ($n[$#n] =~ /\s+?ne\s+?/) { } |
238
|
8 |
51 |
if ($i =~ /^\.(\d+)/) { } |
246
|
23 |
36 |
if ($j) |
254
|
13 |
17 |
if (defined $nc) { } |
256
|
2 |
11 |
if (not $#n and $i =~ /\w$|}$/) { } |
|
2 |
9 |
elsif (defined $fc) { } |
272
|
1 |
16 |
if (defined $tp) |
277
|
0 |
1 |
if ($j eq 'ARRAY') { } |
|
0 |
1 |
elsif ($j eq 'HASH') { } |
294
|
6 |
0 |
if $data |
304
|
2 |
49 |
if ($i eq 'AND') { } |
|
1 |
48 |
elsif ($i eq 'OR') { } |
|
5 |
43 |
elsif ($i =~ /^(\d+)$/) { } |
|
32 |
11 |
elsif ($i =~ /^(\w+)([\+\-]{2})?$/) { } |
|
10 |
1 |
elsif ($i =~ /^\w+[\.]{1}\w+/) { } |
319
|
10 |
10 |
if (@r) { } |
334
|
0 |
62 |
if $oreturn |