| line |
true |
false |
branch |
|
48
|
0 |
0 |
if (defined $o and exists $OPTIONS{$a}) |
|
64
|
239 |
0 |
if $opts |
|
68
|
98 |
317 |
unless $o |
|
69
|
141 |
176 |
if (substr($o, -1, 1) ne '=') { } |
|
79
|
11 |
228 |
if ($opts{'default'}) |
|
83
|
9 |
2 |
if ($f eq $e and $f eq '"' or $f eq q[']) |
|
89
|
237 |
2 |
if ($opts{'name'}) |
|
94
|
64 |
175 |
if ($opts{'escape'}) |
|
102
|
182 |
57 |
if ($tag eq 'var') { } |
|
|
26 |
31 |
elsif ($tag eq 'if') { } |
|
|
11 |
20 |
elsif ($tag eq 'unless') { } |
|
|
18 |
2 |
elsif ($tag eq 'loop') { } |
|
|
2 |
0 |
elsif ($tag eq 'include') { } |
|
104
|
8 |
110 |
if not $opts{'escape'} and $OPTIONS{'default_escape'} and lc $OPTIONS{'default_escape'} ne 'html' |
|
105
|
72 |
110 |
if ($opts{'escape'}) |
|
107
|
22 |
55 |
if ($v eq 'js') |
|
109
|
7 |
15 |
if lc $OPTIONS{'default_escape'} eq 'html' |
|
111
|
21 |
56 |
if ($v eq 'html') |
|
114
|
17 |
60 |
if ($v eq 'url') |
|
116
|
5 |
12 |
if lc $OPTIONS{'default_escape'} eq 'html' |
|
118
|
6 |
60 |
if ($v eq '0' or $v eq '' or $v eq 'off' or $v eq 'none') |
|
119
|
7 |
10 |
if lc $OPTIONS{'default_escape'} eq 'html' |
|
123
|
11 |
171 |
if ($opts{'default'}) |
|
127
|
180 |
2 |
if ($opts{'name'}) |
|
135
|
26 |
0 |
if ($opts{'name'}) |
|
139
|
8 |
18 |
if ($found eq 'else') |
|
147
|
11 |
0 |
if ($opts{'name'}) |
|
151
|
6 |
5 |
if ($found eq 'else') |
|
159
|
18 |
0 |
if ($opts{'name'}) |
|
163
|
1 |
17 |
if ($found eq 'empty') |
|
170
|
2 |
0 |
if ($opts{'name'}) |
|
173
|
0 |
2 |
unless $name |
|
199
|
78 |
155 |
if @end |
|
203
|
212 |
21 |
if ($$template =~ m[\G(.*?)<(?:!--\s*)?
([/]?)\s*
[Tt][Mm][Pp][Ll]_((?:[Vv][Aa][Rr])|(?:[Ii][Ff])|(?:[Ee][Ll][Ss][Ee])|(?:[Uu][Nn][Ll][Ee][Ss][Ss])|(?:[Ll][Oo][Oo][Pp])|(?:[Ii][Nn][Cc][Ll][Uu][Dd][Ee]))
\s*(
(?:
(?:
(?:(?:[Dd][Ee][Ff][Aa][Uu][Ll][Tt])|(?:[Ee][Ss][Cc][Aa][Pp][Ee])|(?:[Nn][Aa][Mm][Ee]))
\s*=\s*
)?
(?!-->)(?:(?:"[^">]*")|(?:'[^'>]*')|(?:[^\s=>]*))\s*
)*
)
(?:--)?>]gsx) { } |
|
223
|
34 |
178 |
if $end |
|
224
|
10 |
202 |
if $end and $tag eq 'loop' |
|
225
|
7 |
205 |
if $end and $tag eq 'unless' |
|
226
|
42 |
170 |
if $found and grep {$_ eq $tagname;} @end |
|
228
|
170 |
0 |
if ($t) { } |
|
229
|
32 |
138 |
if ($$pos >= length $$template) { } |
|
235
|
50 |
120 |
unless ($start) |
|
236
|
5 |
45 |
if lc $OPTIONS{'default_escape'} eq 'html' |
|
253
|
0 |
0 |
if $found |
|
254
|
0 |
0 |
if @end |