| line |
true |
false |
branch |
|
25
|
17 |
33 |
unless defined $string |
|
28
|
0 |
33 |
unless defined $ret |
|
124
|
143 |
12 |
ref $desc ? : |
|
128
|
147 |
8 |
if (length $el_name) |
|
129
|
145 |
2 |
if (not defined $el_ns) { } |
|
|
2 |
0 |
elsif (length $el_ns) { } |
|
130
|
40 |
105 |
unless $self->{'el_name'} eq $el_name |
|
132
|
0 |
2 |
if $el_name =~ /\:/ |
|
133
|
0 |
2 |
unless exists $self->{'ns_data'}{"${el_ns}:"} |
|
134
|
0 |
2 |
unless strip_ns($self->{'el_name'}) eq $el_name |
|
145
|
48 |
2 |
if (not defined $attr_ns) { } |
|
|
2 |
0 |
elsif (length $attr_ns) { } |
|
147
|
13 |
35 |
unless defined $actual_attr_value |
|
148
|
19 |
16 |
unless not defined $attr_value or $attr_value eq $actual_attr_value |
|
150
|
0 |
2 |
if $attr_name =~ /\:/ |
|
152
|
1 |
1 |
unless defined $actual_attr_value |
|
153
|
0 |
1 |
unless not defined $attr_value or $attr_value eq $actual_attr_value |
|
169
|
132 |
65 |
unless defined $path_segment |
|
172
|
132 |
65 |
unless length $path_segment |
|
186
|
29 |
12 |
unless $path_starts_with_root |
|
220
|
12 |
29 |
if $path_starts_with_root |
|
222
|
0 |
58 |
unless @result = map($_->children($path_segment), @result) |
|
224
|
9 |
31 |
wantarray ? : |
|
229
|
29 |
24 |
@_ && ref $_[-1] ? : |
|
230
|
2 |
1 |
defined $_[0] ? : |
|
|
3 |
50 |
@_ ? : |
|
232
|
50 |
3 |
if (not defined $set_value) { } |
|
234
|
28 |
22 |
if ($self->{'content'}) |
|
237
|
22 |
28 |
if ($self->{'text'}) |
|
239
|
2 |
20 |
if $flags->{'strip'} |
|
244
|
1 |
2 |
if (length $set_value) { } |
|
261
|
2 |
5 |
@_ && ref $_[-1] ? : |
|
262
|
3 |
1 |
defined $_[0] ? : |
|
|
4 |
3 |
@_ ? : |
|
264
|
3 |
4 |
if (not defined $set_xml) { } |
|
273
|
1 |
3 |
unless $obj->{'content'} |
|
277
|
4 |
1 |
if $child->{'el_name'} |
|
285
|
0 |
199 |
ref $_[-1] ? : |
|
287
|
4 |
195 |
if (@_) |
|
292
|
67 |
132 |
if (defined $attr_name) { } |
|
293
|
4 |
63 |
if ($must_set) { } |
|
294
|
3 |
1 |
if (defined $set_to) { } |
|
299
|
2 |
2 |
if ($attr_name =~ /^xmlns(\:|\z)/) |
|
316
|
5 |
0 |
if (defined $el_name) { } |
|
317
|
1 |
4 |
if $flags->{'strip_ns'} |
|
338
|
5 |
8 |
if ($flags->{'internal'}) |
|
339
|
0 |
0 |
ref $simple eq 'ARRAY' ? : |
|
|
5 |
0 |
ref $simple eq 'HASH' ? : |
|
353
|
0 |
21 |
if $flags->{'complete'} |
|
360
|
3 |
18 |
if $flags->{'tidy'} |
|
362
|
0 |
21 |
if (defined $flags->{'save'}) |
|
363
|
0 |
0 |
unless open my $fh, ">", $flags->{'save'} |
|
368
|
4 |
17 |
if $flags->{'bytes'} |
|
383
|
0 |
132 |
unless $self->{'el_name'} |
|
391
|
5 |
2 |
unless defined $ns_prefix |
|
392
|
5 |
2 |
if (length $attr{$ns_decl_attr_name}) { } |
|
403
|
6 |
126 |
%$ns_info || @cancel_declarations ? : |
|
417
|
128 |
4 |
if ($num_colons == 0) { } |
|
|
4 |
0 |
elsif ($num_colons == 1) { } |
|
421
|
4 |
0 |
defined $prefix ? : |
|
426
|
7 |
125 |
if defined $ns_name and length $ns_name |
|
430
|
7 |
51 |
if ($attr_name =~ /^([^\:]+)\:([^\:]+)\z/) |
|
433
|
4 |
3 |
if defined $ns_name and length $ns_name |