| line |
true |
false |
branch |
|
60
|
3 |
1 |
if (defined $thing and $thing =~ /(\<|\n|\>)/) { } |
|
|
1 |
0 |
elsif (defined $thing) { } |
|
63
|
0 |
1 |
unless open my $xmldatafile, '<', $thing |
|
77
|
0 |
4 |
unless defined $data |
|
85
|
314 |
14 |
ref $xml ? : |
|
92
|
16 |
572 |
if (tag_self_close($elem)) |
|
98
|
259 |
313 |
if ($opentag) |
|
102
|
0 |
1353 |
unless @xml |
|
104
|
240 |
1113 |
if tag_open($elem) |
|
105
|
499 |
854 |
if tag_close($elem) |
|
111
|
0 |
313 |
if tag_close($elem) |
|
117
|
313 |
15 |
if @head |
|
118
|
275 |
53 |
if @body |
|
119
|
174 |
153 |
if @tail |
|
130
|
10 |
0 |
if defined $res |
|
135
|
4 |
328 |
if ($string =~ /\$/) |
|
148
|
1003 |
10 |
unless $k =~ /^xmlns\:/ |
|
150
|
10 |
0 |
if ($v eq 'http://purl.org/petal/1.0/') |
|
164
|
275 |
0 |
ref $xml ? : |
|
170
|
162 |
113 |
if (has_instructions($node)) { } |
|
175
|
9 |
104 |
if $ns |
|
176
|
112 |
1 |
if ($gat) { } |
|
185
|
159 |
3 |
unless defined $stuff |
|
188
|
2 |
1 |
if ($@) { } |
|
190
|
1 |
6 |
if $k =~ /^$TAL:/ |
|
191
|
1 |
1 |
if delete $$nodeCopy{'_close'} |
|
206
|
155 |
7 |
unless defined $stuff |
|
221
|
149 |
13 |
unless defined $stuff |
|
226
|
5 |
10 |
unless $self->resolve_expression($cond, $context) |
|
235
|
150 |
7 |
unless defined $stuff |
|
250
|
1 |
9 |
unless ref $array |
|
255
|
3 |
23 |
if (@loops) { } |
|
263
|
13 |
10 |
$$count % 2 ? : |
|
264
|
13 |
10 |
$$count % 2 ? : |
|
265
|
7 |
16 |
$$count == 1 ? : |
|
266
|
7 |
16 |
$last && $idx == $#$array ? : |
|
267
|
12 |
11 |
$$context{'repeat'}{'start'} || $$context{'repeat'}{'end'} ? : |
|
278
|
151 |
22 |
unless defined $stuff |
|
281
|
19 |
1 |
defined $res ? : |
|
282
|
4 |
16 |
if delete $$node{'_close'} |
|
294
|
55 |
116 |
unless defined $stuff |
|
296
|
115 |
1 |
defined $res ? : |
|
303
|
34 |
21 |
unless defined $stuff |
|
311
|
34 |
1 |
if (defined $new) { } |
|
312
|
2 |
32 |
if ($add) |
|
314
|
1 |
1 |
unless defined $old |
|
320
|
0 |
1 |
unless $add |
|
330
|
1 |
2 |
$stuff eq '' ? : |
|
|
3 |
52 |
defined $stuff ? : |
|
331
|
0 |
55 |
if $omit and not $end |
|
333
|
53 |
2 |
unless $omit |
|
334
|
48 |
7 |
if ($end) |
|
335
|
20 |
28 |
$STOP_RECURSE ? : |
|
336
|
45 |
2 |
unless $omit |
|
348
|
0 |
236 |
if $expr eq 'nothing' |
|
352
|
4 |
230 |
$structure ? : |
|
364
|
36 |
246 |
if ($expr =~ /:(?!pattern)/) |
|
367
|
36 |
0 |
if $self->can("modifier_$mod") |
|
370
|
23 |
223 |
if ($expr =~ /^--/) |
|
376
|
2 |
221 |
unless defined $what |
|
386
|
1 |
343 |
unless $obj |
|
388
|
1 |
342 |
unless $reftype |
|
390
|
2 |
340 |
if ($reftype eq 'ARRAY') { } |
|
|
321 |
19 |
elsif ($reftype eq 'HASH') { } |
|
|
19 |
0 |
elsif ($obj->can($attribute_or_method)) { } |
|
397
|
11 |
8 |
if (@path) { } |
|
408
|
1 |
341 |
if ($reftype eq 'CODE') |
|
409
|
0 |
1 |
if (@path) { } |
|
419
|
7 |
335 |
if (not @path and @args == 1) |
|
422
|
2 |
5 |
if ($reftype eq 'ARRAY') { } |
|
|
4 |
1 |
elsif ($reftype eq 'HASH') { } |
|
432
|
1 |
335 |
if not @path and @args |
|
441
|
0 |
20 |
if ref $arg and $self->reftype($arg) eq 'ARRAY' |
|
442
|
11 |
9 |
$arg ? : |
|
464
|
0 |
142 |
if /^($TAL:)/ |
|
468
|
5 |
2 |
$att ? : |
|
|
7 |
57 |
if $open and $close |
|
469
|
0 |
57 |
if $close |
|
470
|
17 |
40 |
$att ? : |
|
|
57 |
0 |
if $open |
|
477
|
5 |
627 |
unless $string |
|
495
|
0 |
2200 |
unless defined $elem |
|
501
|
758 |
1442 |
if (not $elem =~ /^<\!/ || $elem =~ m[^$] || $elem =~ /^<\?/ and $elem =~ /^
|
|
517
|
499 |
1167 |
if (not $elem =~ /^<\!/ and $elem =~ m[^$]) |
|
534
|
32 |
572 |
if (not $elem =~ /^<\!/ || $elem =~ m[^$] and $elem =~ /^
|
|
563
|
61 |
169 |
if not $string or ref $string |