| line |
true |
false |
branch |
|
33
|
1 |
0 |
if (@_ and lc $_[0] eq 'combine' || lc $_[0] eq ':combine') |
|
58
|
0 |
0 |
if (@_ and $_ eq 'name') |
|
60
|
0 |
0 |
if ref $l |
|
62
|
0 |
0 |
if grep {lc $_ eq $l;} @a |
|
64
|
0 |
0 |
if (@_ and $_ eq 'loop') |
|
66
|
0 |
0 |
if ref $l |
|
68
|
0 |
0 |
if grep {lc $_ eq $l;} @a |
|
76
|
1 |
1 |
unless ref $filter eq 'ARRAY' |
|
78
|
1 |
1 |
if (ref $f eq 'HASH' and $$f{'sub'} and ref $$f{'sub'} eq 'CODE') { } |
|
|
1 |
0 |
elsif (ref $f eq 'CODE') { } |
|
79
|
0 |
1 |
if ($$f{'format'} and not ref $$f{'format'} and lc $$f{'format'} eq 'array') { } |
|
99
|
0 |
0 |
if (&Scalar::Util::blessed($a)) { } |
|
103
|
0 |
0 |
if ref $a eq 'ARRAY' |
|
106
|
0 |
0 |
unless &Scalar::Util::blessed($obj) |
|
107
|
0 |
0 |
unless $obj->can('param') |
|
144
|
1 |
45 |
$COMBINE ? : |
|
145
|
1 |
45 |
$opts{'global_vars'} ? : |
|
146
|
9 |
37 |
$opts{'case_sensitive'} ? : |
|
147
|
2 |
44 |
$opts{'loop_context_vars'} ? : |
|
148
|
5 |
41 |
$opts{'default_escape'} ? : |
|
150
|
10 |
36 |
if ($opts{'filename'}) |
|
152
|
3 |
7 |
if exists $opts{'compile'} |
|
154
|
0 |
10 |
unless $file |
|
157
|
5 |
5 |
if (-e "$file$flags.html") |
|
158
|
5 |
0 |
if ((stat "$file$flags.html")[9] >= (stat "$file")[9]) |
|
161
|
0 |
5 |
if $opts{'associate'} |
|
165
|
0 |
5 |
unless open my $fh, '<', $file |
|
168
|
1 |
4 |
if $opts{'filter'} |
|
172
|
5 |
0 |
if (open my $fh, '>', "$file$flags.html") { } |
|
178
|
0 |
0 |
if (@compile) |
|
186
|
0 |
5 |
if $opts{'associate'} |
|
190
|
0 |
36 |
if ($opts{'filehandle'}) { } |
|
|
36 |
0 |
elsif ($opts{'scalarref'}) { } |
|
|
0 |
0 |
elsif ($opts{'arrayref'}) { } |
|
200
|
1 |
35 |
if $opts{'filter'} |
|
201
|
1 |
35 |
if ($cache{$data . $flags}) { } |
|
210
|
0 |
36 |
if $opts{'associate'} |
|
213
|
46 |
0 |
if $r |
|
231
|
82 |
27 |
if $options |
|
237
|
50 |
122 |
unless $o |
|
238
|
32 |
90 |
if (substr($o, -1, 1) ne '=') { } |
|
248
|
11 |
98 |
if ($opts{'default'}) |
|
252
|
9 |
2 |
if ($f eq $e and $f eq '"' or $f eq q[']) { } |
|
263
|
80 |
29 |
if ($opts{'name'}) |
|
268
|
30 |
79 |
if ($opts{'escape'}) |
|
280
|
57 |
52 |
if ($tag eq 'var') { } |
|
|
4 |
48 |
elsif ($tag eq 'else') { } |
|
|
29 |
19 |
elsif ($tag eq 'if') { } |
|
|
9 |
10 |
elsif ($tag eq 'unless') { } |
|
|
8 |
2 |
elsif ($tag eq 'loop') { } |
|
|
2 |
0 |
elsif ($tag eq 'include') { } |
|
283
|
30 |
27 |
if ($opts{'escape'}) |
|
285
|
0 |
31 |
if $f eq '' |
|
287
|
5 |
26 |
unless $f |
|
288
|
0 |
26 |
if $f eq 'off' |
|
289
|
0 |
26 |
if $f eq 'none' |
|
290
|
15 |
11 |
if ($f eq 'js' or $f eq 'url') { } |
|
294
|
8 |
3 |
unless $default eq 'html' |
|
295
|
3 |
8 |
if $default eq 'html' |
|
299
|
8 |
49 |
if ($d) { } |
|
|
9 |
40 |
elsif ($default eq 'html') { } |
|
300
|
8 |
0 |
if $filter{$d} |
|
306
|
11 |
46 |
if ($opts{'default'}) |
|
308
|
11 |
0 |
if $def |
|
311
|
55 |
2 |
if ($opts{'name'}) |
|
314
|
2 |
55 |
unless $name |
|
322
|
15 |
14 |
if $end |
|
324
|
14 |
0 |
if ($opts{'name'}) |
|
327
|
0 |
14 |
unless $name |
|
331
|
4 |
5 |
if $end |
|
333
|
5 |
0 |
if ($opts{'name'}) |
|
336
|
0 |
5 |
unless $name |
|
340
|
4 |
4 |
if $end |
|
342
|
4 |
0 |
if ($opts{'name'}) |
|
345
|
0 |
4 |
unless $name |
|
350
|
2 |
0 |
if ($opts{'name'}) |
|
353
|
0 |
2 |
unless $name |
|
355
|
1 |
1 |
if $$opts{'filename'} |
|
358
|
0 |
2 |
unless ($file) |
|
362
|
0 |
2 |
if ($include{$file}) |
|
368
|
0 |
2 |
$COMBINE ? : |
|
369
|
0 |
2 |
$opts{'global_vars'} ? : |
|
370
|
0 |
2 |
$opts{'case_sensitive'} ? : |
|
371
|
0 |
2 |
$opts{'loop_context_vars'} ? : |
|
372
|
0 |
2 |
$opts{'default_escape'} ? : |
|
374
|
1 |
1 |
if ($me) |
|
378
|
0 |
2 |
if (-e "$file$flags.html") |
|
379
|
0 |
0 |
if ((stat "$file$flags.html")[9] >= (stat "$file")[9]) |
|
387
|
0 |
2 |
unless open my $fh, '<', $file |
|
390
|
0 |
2 |
if $opts{'filter'} |
|
393
|
2 |
0 |
if (open my $fh, '>', "$file$flags.html") { } |
|
424
|
1 |
41 |
if $opts{'global_vars'} |
|
426
|
1 |
41 |
if $opts{'loop_context_vars'} |
|
428
|
5 |
37 |
if ($opts{'default_escape'}) |
|
431
|
8 |
34 |
if ($opts{'case_sensitive'}) { } |
|
437
|
39 |
3 |
unless $default eq 'html' |
|
438
|
41 |
1 |
unless $COMBINE |
|
455
|
39 |
3 |
unless $default eq 'html' |
|
462
|
0 |
12 |
if 'File::Spec'->file_name_is_absolute($file) and -e $file |
|
465
|
1 |
0 |
if -e $path |
|
467
|
0 |
11 |
if (defined $ENV{'HTML_TEMPLATE_ROOT'}) |
|
469
|
0 |
0 |
if -e $path |
|
471
|
0 |
11 |
if ($$o{'path'}) |
|
474
|
0 |
0 |
if -e $path |
|
477
|
11 |
0 |
if -e $file |
|
478
|
0 |
0 |
if ($$o{'path'}) |
|
479
|
0 |
0 |
if (defined $ENV{'HTML_TEMPLATE_ROOT'}) |
|
482
|
0 |
0 |
if -e $path |