| line |
true |
false |
branch |
|
52
|
13 |
1 |
if (defined $thing and $thing =~ /(\<|\n|\>)/) { } |
|
|
1 |
0 |
elsif (defined $thing) { } |
|
56
|
0 |
1 |
unless open my $xmldatafile, '<', $thing |
|
68
|
0 |
14 |
unless defined $data |
|
82
|
71 |
299 |
if ($$node{'_close'}) { } |
|
84
|
0 |
71 |
if $open == $top |
|
85
|
0 |
71 |
if lc $$node{'_tag'} ne lc $$open{'_tag'} |
|
89
|
71 |
228 |
unless $$node{'_simple'} or $$node{'_selfclose'} |
|
92
|
0 |
14 |
if @nest > 1 |
|
102
|
9 |
54 |
unless @$nodes |
|
106
|
511 |
176 |
if ($$node{'_simple'}) { } |
|
120
|
4 |
526 |
if ($string =~ /\$/) |
|
124
|
10 |
0 |
if defined $res |
|
154
|
186 |
15 |
if ($$node{'_has_tal'}) |
|
157
|
3 |
183 |
if (defined(my $stuff = delete $$node{"${TAL}:on-error"})) |
|
160
|
2 |
1 |
if ($@) |
|
161
|
1 |
16 |
if $k =~ /^$TAL:/ |
|
171
|
7 |
176 |
if (defined(my $stuff = delete $$node{"${TAL}:define"})) |
|
178
|
13 |
170 |
if (defined(my $stuff = delete $$node{"${TAL}:condition"})) |
|
180
|
5 |
10 |
unless $self->resolve_expression($cond, $context) |
|
184
|
6 |
172 |
if (defined(my $stuff = delete $$node{"${TAL}:repeat"})) |
|
190
|
22 |
150 |
if (defined(my $stuff = delete $$node{"${TAL}:content"})) |
|
192
|
19 |
1 |
defined $res ? : |
|
200
|
116 |
54 |
if (defined(my $stuff = delete $$node{"${TAL}:replace"})) |
|
202
|
114 |
2 |
defined $res ? : |
|
205
|
21 |
33 |
if (defined(my $stuff = delete $$node{"${TAL}:attributes"})) |
|
210
|
34 |
1 |
if (defined $new) { } |
|
211
|
2 |
32 |
if ($add) |
|
213
|
1 |
1 |
unless defined $old |
|
219
|
0 |
1 |
unless $add |
|
224
|
3 |
51 |
if (defined(my $stuff = delete $$node{"${TAL}:omit-tag"})) |
|
225
|
2 |
1 |
if ($stuff eq '' or $self->resolve_expression($stuff, $context)) |
|
226
|
0 |
2 |
if $STOP_RECURSE |
|
232
|
47 |
20 |
unless ($STOP_RECURSE) |
|
244
|
0 |
9 |
unless ref $array |
|
249
|
3 |
22 |
if (@loops) { } |
|
257
|
12 |
10 |
$$count % 2 ? : |
|
258
|
12 |
10 |
$$count % 2 ? : |
|
259
|
6 |
16 |
$$count == 1 ? : |
|
260
|
6 |
16 |
$last && $idx == $#$array ? : |
|
261
|
11 |
11 |
$$context{'repeat'}{'start'} || $$context{'repeat'}{'end'} ? : |
|
273
|
0 |
235 |
unless defined $expr |
|
279
|
0 |
235 |
if $expr eq 'nothing' |
|
283
|
4 |
229 |
$structure ? : |
|
293
|
36 |
245 |
if ($expr =~ /:(?!pattern)/) |
|
296
|
36 |
0 |
if $meth |
|
299
|
22 |
223 |
if $expr =~ s/^--// |
|
302
|
2 |
221 |
unless defined $what |
|
312
|
1 |
343 |
unless $obj |
|
314
|
1 |
342 |
unless $reftype |
|
316
|
2 |
340 |
if ($reftype eq 'ARRAY') { } |
|
|
321 |
19 |
elsif ($reftype eq 'HASH') { } |
|
|
19 |
0 |
elsif ($obj->can($attribute_or_method)) { } |
|
323
|
11 |
8 |
if (@path) { } |
|
334
|
1 |
341 |
if ($reftype eq 'CODE') |
|
335
|
0 |
1 |
if (@path) { } |
|
345
|
7 |
335 |
if (not @path and @args == 1) |
|
348
|
2 |
5 |
if ($reftype eq 'ARRAY') { } |
|
|
4 |
1 |
elsif ($reftype eq 'HASH') { } |
|
358
|
1 |
335 |
if not @path and @args |
|
367
|
0 |
20 |
if ref $arg and $self->reftype($arg) eq 'ARRAY' |
|
368
|
11 |
9 |
$arg ? : |
|
388
|
0 |
68 |
unless ref $node eq 'HASH' |
|
389
|
0 |
68 |
if $$node{'_simple'} |
|
403
|
8 |
60 |
if ($close) |
|
404
|
5 |
2 |
$att ? : |
|
|
7 |
1 |
$change ? : |
|
407
|
17 |
38 |
$att ? : |
|
|
55 |
5 |
$change ? : |
|
410
|
0 |
60 |
unless defined $contents |
|
418
|
153 |
217 |
if ($elem =~ m[^<(/?)([A-Za-z0-9][A-Za-z0-9_:-]+).*?(/?)>$]) |
|
421
|
71 |
82 |
if $has_close |
|
454
|
91 |
9 |
if ($key =~ /^(.*?):/) |
|
455
|
10 |
81 |
if ($1 eq 'xmlns' and $attr{$key} eq 'http://purl.org/petal/1.0/') |
|
483
|
62 |
167 |
if not $string or ref $string |