| 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
|
12 |
0 |
if (defined $value and length $value) { } |
|
560
|
0 |
0 |
exists $flags->{'indentstring'} ? : |
|
|
0 |
21 |
if ($flags->{'tidy'}) |
|
561
|
0 |
21 |
$flags->{'complete'} ? : |
|
562
|
0 |
21 |
if $flags->{'xslt'} |
|
565
|
1 |
20 |
if (defined $flags->{'save'}) |
|
566
|
0 |
1 |
unless open my $fh, '>', $flags->{'save'} |
|
572
|
1 |
20 |
if $flags->{'bytes'} |
|
579
|
90 |
37 |
if (not ref $thing) { } |
|
|
13 |
24 |
elsif (ref $thing eq 'HASH') { } |
|
|
24 |
0 |
elsif (ref $thing eq 'ARRAY') { } |
|
588
|
19 |
18 |
if (not ref $key) { } |
|
602
|
4 |
7 |
if (ref $arref eq 'HASH') |
|
608
|
0 |
16 |
unless defined $tag |
|
611
|
0 |
16 |
if ($key eq '!as_is') { } |
|
|
14 |
2 |
elsif (not ref $value) { } |
|
612
|
0 |
0 |
if check_xml($value) |
|
614
|
14 |
0 |
if (defined $value and length $value) { } |
|
635
|
0 |
4 |
unless defined $tag |
|
637
|
0 |
4 |
if ($key eq '!as_is') { } |
|
|
4 |
0 |
elsif (not ref $value) { } |
|
638
|
0 |
0 |
if check_xml($value) |
|
640
|
2 |
2 |
if (defined $value and length $value) { } |
|
676
|
7 |
0 |
defined $object ? : |
|
685
|
0 |
62 |
unless (defined $object) |
|
687
|
0 |
62 |
if ($flags->{'arrayref'}) { } |
|
698
|
0 |
62 |
unless (defined $object) |
|
703
|
48 |
65 |
if (defined $stuff->{'element'}) { } |
|
|
65 |
0 |
elsif (defined $stuff->{'value'}) { } |
|
705
|
1 |
47 |
if ($flags->{'strip_ns'}) |
|
709
|
0 |
65 |
if ($flags->{'strip'}) |
|
710
|
27 |
38 |
if $value =~ /\S/ |
|
714
|
35 |
0 |
if (keys %$hashref) { } |
|
725
|
0 |
0 |
unless (defined $object) |
|
730
|
0 |
0 |
if (defined $stuff->{'element'}) { } |
|
|
0 |
0 |
elsif (defined $stuff->{'value'}) { } |
|
732
|
0 |
0 |
if ($flags->{'strip_ns'}) |
|
736
|
0 |
0 |
if ($flags->{'strip'}) |
|
737
|
0 |
0 |
if $value =~ /\S/ |
|
741
|
0 |
0 |
if (@$arrayref) { } |