| line |
true |
false |
branch |
|
34
|
0 |
16 |
unless defined $data |
|
36
|
10 |
6 |
if (not defined $opts or &reftype($opts) ne 'HASH') { } |
|
46
|
16 |
0 |
unless exists $opts->{'escape'} |
|
51
|
10 |
6 |
if (not defined &reftype($data) or &reftype($data) ne 'HASH') { } |
|
52
|
10 |
0 |
$opts->{'escape'} ? : |
|
58
|
2 |
4 |
if (exists $data->{'_attrs'}) |
|
59
|
0 |
2 |
unless exists $opts->{'attrs'} |
|
62
|
1 |
5 |
if (exists $data->{'_cdata'}) |
|
63
|
0 |
1 |
unless exists $opts->{'cdata'} |
|
69
|
3 |
5 |
if $key =~ /^_/ |
|
72
|
0 |
5 |
if (not defined $data->{$key}) { } |
|
|
2 |
3 |
elsif (not ref $data->{$key}) { } |
|
|
3 |
0 |
elsif (&reftype($data->{$key}) eq 'HASH') { } |
|
|
0 |
0 |
elsif (&reftype($data->{$key}) eq 'ARRAY') { } |
|
96
|
5 |
11 |
if ($opts->{'root'}) |
|
101
|
3 |
2 |
if ($opts->{'attrs'}) |
|
111
|
1 |
4 |
if ($opts->{'cdata'}) |
|
112
|
1 |
0 |
$opts->{'escape'} ? : |
|
116
|
2 |
3 |
if ($xml eq '') { } |