| line |
true |
false |
branch |
|
44
|
0 |
0 |
if (ref ${$ref;} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref ${$ref;} eq 'HASH') { } |
|
46
|
0 |
0 |
if (ref ${$ref;}->[$_]) { } |
|
|
0 |
0 |
elsif (&readonly(${$ref;}->[$_])) { } |
|
49
|
0 |
0 |
${$ref;}->[$_] ? : |
|
54
|
0 |
0 |
if (ref ${$ref;}->{$_}) { } |
|
|
0 |
0 |
elsif (&readonly(${$ref;}->{$_})) { } |
|
57
|
0 |
0 |
delete ${$ref;}->{$_} ? : |
|
68
|
8 |
0 |
if ($format eq 'JSON') { } |
|
|
0 |
0 |
elsif ($format eq 'YAML') { } |
|
|
0 |
0 |
elsif ($format eq 'RAW') { } |
|
69
|
8 |
0 |
unless $opts |
|
72
|
0 |
0 |
if $@ |
|
79
|
0 |
8 |
if $@ |
|
86
|
0 |
1 |
if $uri eq '-' |
|
88
|
1 |
0 |
unless defined $fmt |
|
90
|
1 |
0 |
if (ref $uri eq 'GLOB') { } |
|
100
|
0 |
0 |
unless open my $fh, '>', $file |
|
109
|
1 |
0 |
if ($format eq 'JSON' or $format eq 'RAW' and ref $data) { } |
|
|
0 |
0 |
elsif ($format eq 'YAML') { } |
|
|
0 |
0 |
elsif ($format eq 'RAW') { } |
|
110
|
1 |
0 |
unless $opts |
|
118
|
0 |
1 |
if $@ |
|
125
|
8 |
1 |
if (@names and @names > 1) |
|
127
|
0 |
8 |
if $ext eq 'YML' or $ext eq 'YAML' |
|
134
|
0 |
9 |
if $uri eq '-' |
|
137
|
8 |
0 |
unless defined $fmt |
|
145
|
0 |
9 |
if (ref $uri eq 'GLOB') { } |
|
148
|
1 |
8 |
unless open my $fh, '<', $uri |