| line |
true |
false |
branch |
|
30
|
0 |
2 |
ref $args[0] ? : |
|
34
|
2 |
0 |
_is_hash($init_data) ? : |
|
37
|
0 |
2 |
unless (_is_hash($init_data)) |
|
42
|
0 |
2 |
unless @kv_list |
|
46
|
0 |
2 |
if @kv_list and @kv_list % 2 != 0 |
|
67
|
0 |
3 |
if @kv_list % 2 != 0 |
|
71
|
0 |
5 |
$key_path =~ s/^([+-])// ? : |
|
83
|
0 |
5 |
if ($action eq '+') { } |
|
|
0 |
5 |
elsif ($action eq '-') { } |
|
84
|
0 |
0 |
if (_is_array($current->{$final_key})) { } |
|
|
0 |
0 |
elsif (_is_hash($current->{$final_key}) and _is_hash($value)) { } |
|
|
0 |
0 |
elsif (_is_hash($current->{$final_key})) { } |
|
|
0 |
0 |
elsif (exists $current->{$final_key}) { } |
|
101
|
0 |
0 |
if (_is_array($current->{$final_key})) { } |
|
|
0 |
0 |
elsif (_is_hash($current->{$final_key})) { } |
|
114
|
0 |
5 |
if _is_hash($current->{$final_key}) and not _is_hash($value) |
|
134
|
9 |
0 |
if (_is_hash($current) and exists $current->{$key}) { } |
|
146
|
0 |
3 |
wantarray ? : |
|
154
|
3 |
0 |
if $FORMAT eq "JSON" and $JSON_PRETTY |
|
155
|
0 |
6 |
if $FORMAT eq "JSON" |
|
156
|
2 |
4 |
if $FORMAT eq "YAML" |
|
157
|
2 |
2 |
if $FORMAT eq "Dumper" |
|
158
|
2 |
0 |
if $FORMAT eq "Storable" |
|
174
|
0 |
2 |
unless _is_hash($current) and exists $current->{$key} |
|
181
|
1 |
0 |
if exists $current->{$final_key} |
|
187
|
0 |
2 |
if (_is_hash($parent->{$key}) and not %{$parent->{$key};}) |
|
208
|
2 |
1 |
if (_is_hash($current) and exists $current->{$key}) { } |
|
220
|
0 |
1 |
wantarray ? : |