| line |
true |
false |
branch |
|
89
|
0 |
91 |
unless defined $string |
|
118
|
0 |
130 |
unless defined $string |
|
130
|
124 |
6 |
unless @captured |
|
133
|
0 |
6 |
if (exists $conv{$e}) |
|
134
|
5 |
1 |
if (exists $replace{$e}) { } |
|
|
1 |
0 |
elsif ($e =~ /\A&#x([0-9a-fA-F]+);\z/) { } |
|
|
0 |
0 |
elsif ($e =~ /\A&#([0-9]+);\z/) { } |
|
151
|
2 |
0 |
defined $string ? : |
|
158
|
1 |
0 |
defined $string ? : |
|
175
|
0 |
3 |
unless defined $object |
|
194
|
1 |
39 |
if ($flags->{'file'}) |
|
195
|
0 |
1 |
unless open my $fh, "<", $xml |
|
200
|
5 |
35 |
if ($flags->{'bytes'} or $flags->{'file'}) |
|
202
|
5 |
0 |
unless defined $encoding |
|
203
|
5 |
0 |
if ($encoding =~ /\Autf-?8\z/i) |
|
207
|
1 |
4 |
if $@ |
|
219
|
0 |
304 |
if ($el =~ /\A\z/) |
|
223
|
0 |
0 |
unless ($el =~ /\?>\z/) |
|
231
|
39 |
3 |
if ($el =~ /\S/) { } |
|
239
|
0 |
39 |
unless (@els) |
|
245
|
0 |
299 |
if ($el =~ m[\A\z]) { } |
|
|
97 |
202 |
elsif ($el =~ m[\A]+>\z]) { } |
|
|
7 |
195 |
elsif ($el =~ m[\A<[^>]+/>\z]) { } |
|
|
98 |
97 |
elsif ($el =~ m[\A<[^\s>/][^>]*>\z]) { } |
|
|
97 |
0 |
elsif ($el =~ /\A[^<>]*\z/) { } |
|
249
|
0 |
97 |
unless (length $element) |
|
250
|
0 |
97 |
if ($stack[-1]{'element'} ne $element) |
|
252
|
1 |
96 |
if ($#{$$stackentry{"content"};} == -1) |
|
258
|
0 |
7 |
unless (length $element) |
|
267
|
0 |
0 |
unless (length $name and defined $value) |
|
276
|
0 |
98 |
unless (length $element) |
|
285
|
0 |
30 |
unless (length $name and defined $value) |
|
303
|
1 |
38 |
if (@stack) |
|
314
|
32 |
46 |
if (not defined $stuff->{'element'} and defined $stuff->{'value'}) { } |
|
321
|
7 |
39 |
if (not defined $stuff->{'content'} && @{$stuff->{'content'};}) { } |
|
353
|
11 |
8 |
exists $flags->{'indentstring'} ? : |
|
355
|
10 |
9 |
unless (defined $object->{'content'} and @{$object->{'content'};}) |
|
360
|
5 |
6 |
if (defined $child->{'value'}) |
|
361
|
5 |
0 |
if ($child->{'value'} =~ /\S/) |
|
367
|
5 |
4 |
if ($hastext) |
|
545
|
9 |
12 |
ref $arref eq 'HASH' ? : |
|
547
|
0 |
21 |
if (@residue) |
|
549
|
0 |
21 |
unless defined $tag |
|
551
|
12 |
9 |
if (not ref $value) { } |
|
552
|
0 |
12 |
if ($key eq '!as_is') { } |
|
|
12 |
0 |
elsif (defined $value and length $value) { } |
|
562
|
0 |
0 |
exists $flags->{'indentstring'} ? : |
|
|
0 |
21 |
if ($flags->{'tidy'}) |
|
563
|
0 |
21 |
$flags->{'complete'} ? : |
|
564
|
0 |
21 |
if $flags->{'xslt'} |
|
567
|
1 |
20 |
if (defined $flags->{'save'}) |
|
568
|
0 |
1 |
unless open my $fh, ">", $flags->{'save'} |
|
574
|
1 |
20 |
if $flags->{'bytes'} |
|
581
|
90 |
37 |
if (not ref $thing) { } |
|
|
13 |
24 |
elsif (ref $thing eq 'HASH') { } |
|
|
24 |
0 |
elsif (ref $thing eq 'ARRAY') { } |
|
590
|
19 |
18 |
if (not ref $key) { } |
|
604
|
4 |
7 |
if (ref $arref eq "HASH") |
|
610
|
0 |
16 |
unless defined $tag |
|
613
|
0 |
16 |
if ($key eq '!as_is') { } |
|
|
14 |
2 |
elsif (not ref $value) { } |
|
614
|
0 |
0 |
if check_xml($value) |
|
616
|
14 |
0 |
if (defined $value and length $value) { } |
|
637
|
0 |
4 |
unless defined $tag |
|
639
|
0 |
4 |
if ($key eq '!as_is') { } |
|
|
4 |
0 |
elsif (not ref $value) { } |
|
640
|
0 |
0 |
if check_xml($value) |
|
642
|
2 |
2 |
if (defined $value and length $value) { } |
|
678
|
7 |
0 |
defined $object ? : |
|
687
|
0 |
62 |
unless (defined $object) |
|
689
|
0 |
62 |
if ($flags->{'arrayref'}) { } |
|
700
|
0 |
62 |
unless (defined $object) |
|
705
|
48 |
65 |
if (defined $stuff->{'element'}) { } |
|
|
65 |
0 |
elsif (defined $stuff->{'value'}) { } |
|
707
|
1 |
47 |
if ($flags->{'strip_ns'}) |
|
711
|
0 |
65 |
if ($flags->{'strip'}) |
|
712
|
27 |
38 |
if $value =~ /\S/ |
|
716
|
35 |
0 |
if (keys %$hashref) { } |
|
727
|
0 |
0 |
unless (defined $object) |
|
732
|
0 |
0 |
if (defined $stuff->{'element'}) { } |
|
|
0 |
0 |
elsif (defined $stuff->{'value'}) { } |
|
734
|
0 |
0 |
if ($flags->{'strip_ns'}) |
|
738
|
0 |
0 |
if ($flags->{'strip'}) |
|
739
|
0 |
0 |
if $value =~ /\S/ |
|
743
|
0 |
0 |
if (@$arrayref) { } |