| line |
true |
false |
branch |
|
475
|
0 |
111 |
unless length $t |
|
493
|
43 |
11 |
unless defined $attr |
|
494
|
0 |
11 |
if (ref $attr ne 'HASH') |
|
526
|
0 |
27 |
unless defined $t |
|
559
|
0 |
10 |
unless (defined $text) |
|
565
|
1 |
9 |
if ($normalize_whitespace) |
|
601
|
0 |
2 |
unless defined $text |
|
635
|
13 |
0 |
if (defined $t) |
|
638
|
7 |
6 |
if ($t =~ /&[a-zA-Z0-9]+;/) |
|
641
|
15 |
1756 |
if (my $n = $t =~ s/&$e;/chr $dec;/eg) |
|
663
|
11 |
0 |
if defined $t |
|
774
|
0 |
4 |
if $t =~ s/ses$/s/i |
|
775
|
0 |
4 |
if $t =~ /[aeiouy]ss$/i |
|
777
|
4 |
0 |
length $t ? : |
|
785
|
2 |
2 |
if (ref $_[0] eq 'HASH' and not exists $_[0]{'tag'}) { } |
|
790
|
1 |
1 |
unless defined $wrap_array |
|
792
|
1 |
1 |
unless defined $escape |
|
800
|
0 |
2 |
if (defined $escape and $escape == 1) { } |
|
|
0 |
2 |
elsif (defined $escape and $escape == 0) { } |
|
|
2 |
0 |
elsif (not defined $escape) { } |
|
812
|
0 |
4 |
unless (defined $perl) |
|
816
|
2 |
2 |
if ($strip_plural and ref $strip_plural ne 'CODE') |
|
821
|
1 |
3 |
if (ref $root) { } |
|
822
|
0 |
1 |
unless $root_tag = delete $root->{'tag'} |
|
823
|
0 |
1 |
unless $attrs = delete $root->{'attrs'} |
|
830
|
0 |
4 |
unless (ref $perl) |
|
832
|
0 |
0 |
$escape ? : |
|
848
|
31 |
27 |
if (not $type) { } |
|
|
0 |
27 |
elsif ($type eq 'SCALAR') { } |
|
|
7 |
20 |
elsif ($type eq 'ARRAY') { } |
|
|
17 |
3 |
elsif ($type eq 'HASH') { } |
|
849
|
31 |
0 |
if length $root |
|
851
|
23 |
8 |
$escape ? : |
|
852
|
31 |
0 |
if length $root |
|
881
|
8 |
4 |
if (ref $thing and ref $thing eq 'ARRAY' || ref $thing eq 'HASH' and length $root and $wrap_array) |
|
891
|
8 |
4 |
if (ref $thing and ref $thing eq 'ARRAY' || ref $thing eq 'HASH' and length $root and $wrap_array) |
|
907
|
8 |
21 |
if (ref $thing) { } |
|
910
|
4 |
4 |
if (ref $thing eq 'ARRAY' and $strip_plural) |
|
914
|
6 |
2 |
if (ref $thing ne 'ARRAY' or $wrap_array) |
|
921
|
6 |
2 |
if (ref $thing ne 'ARRAY' or $wrap_array) |
|
937
|
2 |
1 |
$escape ? : |
|
969
|
0 |
0 |
if (scalar @xmlarr and $xmlarr[0] =~ /^<\?\s*xml/) |
|
976
|
0 |
0 |
if ($count == 1) |
|
979
|
0 |
0 |
if ($count == scalar(@xmlarr) - 1) |
|
986
|
0 |
0 |
if ($el =~ m[^<([\w])+[^>]*/>$]) { } |
|
|
0 |
0 |
elsif ($el =~ /^<([\w])+[^>]*>$/) { } |
|
999
|
0 |
0 |
if ($el =~ m[^
|
|
1004
|
0 |
0 |
if ($indent < 0) |