| line |
true |
false |
branch |
|
83
|
2 |
6 |
if ($params->{'strict'}) |
|
89
|
0 |
8 |
if (my $logger = $self->{'logger'}) |
|
90
|
0 |
0 |
unless (builtin::blessed($logger)) |
|
94
|
0 |
0 |
if ($@) |
|
135
|
0 |
11 |
if (ref $xml_string eq "SCALAR") |
|
141
|
0 |
11 |
unless ($xml_string) |
|
260
|
0 |
8 |
unless ref $node eq "HASH" and $node->{'children'} |
|
264
|
0 |
19 |
unless my $name = $child->{'name'} |
|
267
|
18 |
1 |
if ($child->{'children'} and @{$child->{'children'};}) |
|
268
|
15 |
3 |
if (@{$child->{'children'};} == 1 and exists $child->{'children'}[0]{'text'}) { } |
|
275
|
2 |
17 |
unless defined $value and $value ne "" |
|
278
|
2 |
15 |
if (exists $result{$name}) { } |
|
279
|
1 |
1 |
unless ref $result{$name} eq "ARRAY" |
|
303
|
0 |
24 |
unless (defined $xml_ref) |
|
304
|
0 |
0 |
if ($self->{'logger'}) |
|
311
|
0 |
24 |
unless ($$xml_ref =~ s[^\s*<([^\s/>]+)([^>]*)\s*(/?)>][]s) |
|
319
|
0 |
24 |
if ($self_close and not $$xml_ref =~ m[^\s*]) |
|
325
|
1 |
23 |
if ($attr_string =~ s[/\s*$][]) |
|
329
|
2 |
22 |
$raw_tag =~ /^([^:]+):(.+)$/ ? : |
|
338
|
0 |
12 |
if ($k1 eq 'xmlns' and not defined $k2) { } |
|
|
1 |
22 |
elsif ($k1 eq 'xmlns' and defined $k2) { } |
|
369
|
1 |
11 |
if $attr =~ /^xmlns(?::|$)/ |
|
378
|
2 |
20 |
defined $ns ? : |
|
384
|
1 |
21 |
if $self_close |
|
387
|
21 |
0 |
if ($$xml_ref =~ s/^([^<]+)//s) |
|
390
|
15 |
6 |
if $text ne "" |
|
396
|
13 |
0 |
if $child |
|
409
|
0 |
32 |
unless defined $text |
|
424
|
3 |
29 |
if ($text =~ /&([^;]*);/) |
|
426
|
3 |
0 |
unless ($entity =~ /^(lt|gt|amp|quot|apos)$/ or $entity =~ /^#(?:x[0-9a-fA-F]+|\d+)$/) |
|
432
|
7 |
24 |
if ($text =~ /&/) |
|
445
|
2 |
8 |
if ($self->{'strict'}) { } |
|
|
3 |
5 |
elsif ($self->{'warn_on_error'}) { } |
|
447
|
0 |
2 |
if ($self->{'logger'}) |
|
453
|
0 |
3 |
if ($self->{'logger'}) { } |
|
459
|
0 |
5 |
if ($self->{'logger'}) { } |