| line |
true |
false |
branch |
|
31
|
1 |
2 |
ref $args[0] ? : |
|
35
|
3 |
0 |
_is_hash($init_data) ? : |
|
38
|
0 |
3 |
unless (_is_hash($init_data)) |
|
43
|
1 |
2 |
unless @kv_list |
|
47
|
0 |
2 |
if @kv_list and @kv_list % 2 != 0 |
|
69
|
0 |
16 |
if @kv_list % 2 != 0 |
|
74
|
7 |
11 |
$key_path =~ s/^([+-])// ? : |
|
86
|
4 |
14 |
if ($action eq '+') { } |
|
|
3 |
11 |
elsif ($action eq '-') { } |
|
87
|
1 |
3 |
if (_is_array($current->{$final_key})) { } |
|
|
1 |
2 |
elsif (_is_hash($current->{$final_key}) and _is_hash($value)) { } |
|
|
0 |
2 |
elsif (_is_hash($current->{$final_key})) { } |
|
|
2 |
0 |
elsif (exists $current->{$final_key}) { } |
|
104
|
1 |
2 |
if (_is_array($current->{$final_key})) { } |
|
|
1 |
1 |
elsif (_is_hash($current->{$final_key})) { } |
|
116
|
0 |
11 |
if _is_hash($current->{$final_key}) and not _is_hash($value) |
|
136
|
23 |
0 |
if (_is_hash($current) and exists $current->{$key}) { } |
|
148
|
9 |
3 |
wantarray ? : |
|
156
|
4 |
0 |
if $FORMAT eq "JSON" and $JSON_PRETTY |
|
157
|
0 |
6 |
if $FORMAT eq "JSON" |
|
158
|
2 |
4 |
if $FORMAT eq "YAML" |
|
159
|
2 |
2 |
if $FORMAT eq "Dumper" |
|
160
|
2 |
0 |
if $FORMAT eq "Storable" |
|
176
|
0 |
2 |
unless _is_hash($current) and exists $current->{$key} |
|
184
|
1 |
0 |
if (exists $current->{$final_key}) |
|
192
|
0 |
2 |
if (_is_hash($parent->{$key}) and not %{$parent->{$key};}) |
|
213
|
2 |
2 |
if (_is_hash($current) and exists $current->{$key}) { } |
|
225
|
0 |
2 |
wantarray ? : |