| line |
true |
false |
branch |
|
147
|
0 |
193 |
unless $mode eq "xml" or $mode eq "html" |
|
334
|
116 |
2408 |
if ('HASH' eq ref $a) { } |
|
350
|
36 |
1229 |
unless @out |
|
353
|
1240 |
25 |
wantarray ? : |
|
429
|
2488 |
312 |
unless $self->{'autotag'}{$_}{$name} |
|
432
|
720 |
680 |
wantarray ? : |
|
478
|
92 |
2796 |
if (ref $obj) |
|
481
|
90 |
2 |
if ("ARRAY" eq ref $obj) |
|
484
|
36 |
54 |
if (@$obj and "SCALAR" eq ref $obj->[0]) |
|
493
|
1 |
1 |
if eval {
do {
$str = $obj->as_string;
1
}
} |
|
564
|
98 |
53 |
$1 eq ' ' ? : |
|
632
|
218 |
1 |
$_[2] ? : |
|
641
|
2 |
201 |
if (ref $val) |
|
642
|
1 |
1 |
unless $self->_xml_mode |
|
660
|
1 |
2658 |
if grep {"HASH" ne ref $_;} @_ |
|
673
|
96 |
2562 |
$closed && $self->_xml_mode ? : |
|
687
|
59 |
23 |
if ('HASH' eq $type) { } |
|
|
22 |
1 |
elsif ('ARRAY' eq $type) { } |
|
|
1 |
0 |
elsif (UNIVERSAL::can($obj, 'can') and $obj->can('TO_JSON')) { } |
|
715
|
18 |
145 |
unless defined $obj |
|
717
|
83 |
62 |
if (my $type = ref $obj) |
|
719
|
1 |
82 |
if $seen->{$obj}++ |
|
725
|
31 |
31 |
if $obj =~ /^-?\d+(?:[.]\d+)?$/ |