| line |
true |
false |
branch |
|
61
|
30 |
82 |
@_ == 1 ? : |
|
63
|
6 |
105 |
ref $templ eq 'ARRAY' ? : |
|
|
1 |
111 |
ref $templ eq 'SCALAR' ? : |
|
68
|
0 |
112 |
unless defined $tree |
|
71
|
54 |
58 |
if keys %$values |
|
77
|
225 |
113 |
unless (ref $node) |
|
88
|
11 |
6 |
if (ref $_ eq 'ARRAY') { } |
|
|
5 |
7 |
@$v == 1 ? : |
|
|
41 |
12 |
ref $v ne 'ARRAY' ? : |
|
93
|
74 |
39 |
unless (defined $then or defined $else) |
|
94
|
14 |
60 |
unless defined $value |
|
96
|
0 |
60 |
unless ref $value ne "ARRAY" and ref $value ne "HASH" |
|
105
|
16 |
23 |
$take_else ? : |
|
107
|
12 |
27 |
unless defined $container |
|
110
|
3 |
24 |
if keys %$attrs |
|
112
|
6 |
21 |
if ($take_else) { } |
|
|
3 |
18 |
elsif (ref $value eq 'HASH') { } |
|
|
11 |
7 |
elsif (ref $value eq 'ARRAY') { } |
|
135
|
3 |
24 |
if keys %$attrs |
|
138
|
54 |
58 |
if keys %$values |
|
140
|
6 |
2 |
defined wantarray ? : |
|
|
104 |
8 |
if (wantarray) { } |
|
149
|
6 |
0 |
@_ == 1 ? : |
|
155
|
4 |
2 |
if (exists $cache->{$filename}) { } |
|
|
1 |
1 |
elsif ($template = $self->loadFile($filename)) { } |
|
157
|
4 |
0 |
if defined $tree |
|
168
|
0 |
6 |
unless defined $tree or defined wantarray |
|
171
|
6 |
0 |
defined wantarray ? : |
|
|
0 |
6 |
if (wantarray) { } |
|
181
|
0 |
1 |
unless my $name = delete $attrs->{'name'} |
|
183
|
0 |
1 |
if defined $else |
|
205
|
212 |
72 |
if (defined $v) |
|
210
|
60 |
119 |
wantarray ? : |
|
|
179 |
33 |
if ref $v ne "CODE" |
|
214
|
29 |
4 |
wantarray ? : |
|
218
|
4 |
0 |
wantarray ? : |
|
|
4 |
68 |
if exists $set->{$tag} |
|
221
|
0 |
68 |
if (defined $code) |
|
223
|
0 |
0 |
wantarray ? : |
|
|
0 |
0 |
if defined $value |
|
229
|
20 |
0 |
wantarray ? : |
|
239
|
2 |
2 |
if (defined(my $v = $set->{$tag})) |
|
240
|
0 |
2 |
ref $v eq 'CODE' ? : |
|
241
|
2 |
0 |
if defined $t |
|
244
|
0 |
4 |
if (defined(my $code = $set->{'DYNAMIC'})) |
|
246
|
0 |
0 |
if defined $t |
|
257
|
14 |
54 |
if (my $markers = $attrs->{'markers'}) |
|
259
|
13 |
1 |
ref $markers eq 'ARRAY' ? : |
|
261
|
2 |
12 |
if @markers == 2 |
|
264
|
2 |
12 |
if @markers == 3 |
|
268
|
8 |
48 |
ref $_ eq 'Regexp' ? : |
|
271
|
11 |
57 |
if (my $search = $attrs->{'search'}) |
|
272
|
11 |
0 |
if ref $search ne "ARRAY" |
|
289
|
0 |
7 |
if defined $then or defined $else |
|
292
|
5 |
2 |
if (my $fn = $attrs->{'file'}) |
|
295
|
1 |
0 |
if not defined $output and $attrs->{'alt'} |
|
297
|
0 |
5 |
unless defined $output |
|
303
|
2 |
0 |
if (my $name = $attrs->{'macro'}) |
|
304
|
0 |
2 |
unless my $macro = $self->{'macros'}{$name} |
|
319
|
0 |
2 |
if (file_name_is_absolute($relfn)) |
|
321
|
0 |
0 |
if -f $fn |
|
324
|
2 |
0 |
unless ($absfn) |
|
328
|
1 |
2 |
if -f $absfn |
|
333
|
1 |
1 |
unless defined $absfn |
|
337
|
0 |
1 |
unless (defined $in) |
|
355
|
0 |
106 |
unless defined $template |
|
380
|
40 |
69 |
if ($template =~ s/ (.*?) # contained
( $markers->[2]
\s* \Q$tag\E \s* # "our" tag
$markers->[3]
)
//sx) |
|
390
|
5 |
104 |
if ($not) { } |
|
|
69 |
35 |
elsif (not defined $then) { } |
|
|
5 |
30 |
elsif ($then =~ s/ $markers->[0]
\s* ELSE (?:_|\s+)
\Q$tag\E \s*
$markers->[1]
(.*)
//sx) { } |
|
431
|
11 |
46 |
unless (defined $v) |
|
436
|
11 |
35 |
if ($v =~ /^\'(.*)\'$/) |
|
445
|
23 |
12 |
if (@v == 1 and not $v[0] =~ /^\$/) |
|
452
|
12 |
24 |
if (/^ (?: \$(\w+) | \$\{ (\w+) \s* \} ) $/x) { } |
|
|
4 |
20 |
elsif (/^ \$\{ (\w+) \s* ([^\}]+? \s* ) \} $/x) { } |
|
459
|
6 |
14 |
if length $_ |
|
466
|
0 |
113 |
if length $string |