| line |
true |
false |
branch |
|
27
|
0 |
25 |
unless defined ${$argsref;}[$x + 1] |
|
36
|
0 |
35 |
if (ref $fname) { } |
|
40
|
0 |
35 |
unless open FH, $fname |
|
71
|
121 |
335 |
if (/^<
(?:!--\s*)?
(?:
(?i:TMPL_
(VAR|LOOP|INCLUDE|IF|UNLESS|ELSE) # $1
)
\s*
)
(.*?) # parameters
(?:--)?>
(.*) # $3
/sx) { } |
|
|
29 |
306 |
elsif (m[^<(?:!--\s*)?/TMPL_(LOOP|IF|UNLESS)\s*(?:--)?>(.*)]is) { } |
|
105
|
6 |
126 |
defined $3 ? : |
|
|
15 |
132 |
defined $2 ? : |
|
107
|
30 |
117 |
if (defined $1 and uc $1 ne 'NAME') { } |
|
108
|
18 |
12 |
if (uc $1 eq 'DEFAULT') { } |
|
109
|
0 |
18 |
if defined $default |
|
113
|
0 |
12 |
unless $val =~ /0|1|html|url|js|none/i |
|
119
|
0 |
117 |
if defined $name |
|
125
|
10 |
111 |
if exists $ctx_vars{lc $name} and $$opts{'loop_context_vars'} |
|
126
|
0 |
121 |
if /\G(.+)/g |
|
127
|
29 |
92 |
if $push{$tag} |
|
128
|
77 |
44 |
if ($tag eq 'VAR') { } |
|
|
17 |
27 |
elsif ($tag eq 'LOOP') { } |
|
|
11 |
16 |
elsif ($tag eq 'INCLUDE') { } |
|
|
12 |
4 |
elsif ($tag eq 'IF' or $tag eq 'UNLESS') { } |
|
129
|
18 |
59 |
if defined $default |
|
133
|
10 |
67 |
if exists $escape{'html'} or exists $escape{1} |
|
135
|
1 |
76 |
if exists $escape{'url'} |
|
136
|
1 |
76 |
if exists $escape{'js'} |
|
143
|
0 |
77 |
if $name eq '' |
|
148
|
17 |
0 |
if $name or die q[Empty 'NAME' parameter] |
|
155
|
11 |
0 |
if $name or die q[Empty 'NAME' parameter] |
|
157
|
0 |
11 |
if ref $$opts{'gen_params'} |
|
160
|
0 |
12 |
if $name eq '' |
|
164
|
0 |
4 |
unless @stack and $stack[$#stack] =~ /IF|UNLESS/ |
|
175
|
0 |
29 |
unless @stack |
|
177
|
0 |
29 |
unless $tag = pop @stack |
|
180
|
17 |
12 |
if (uc $tag eq 'LOOP') |
|
190
|
0 |
306 |
if m[^<(?:!--\s*)/?TMPL_]i |
|
196
|
0 |
35 |
if ref $$opts{'gen_params'} |
|
204
|
0 |
0 |
unless defined $outline |
|
208
|
0 |
0 |
if (ref $val eq 'ARRAY') { } |
|
216
|
0 |
0 |
unless $outline |