| line |
true |
false |
branch |
|
46
|
0 |
4 |
unless (open HASH, '<', $file) |
|
54
|
6 |
42 |
if (defined $split) { } |
|
56
|
3 |
3 |
@rest == 1 ? : |
|
72
|
2 |
7 |
if (ref $source eq 'ARRAY') { } |
|
|
2 |
5 |
elsif (not ref $source) { } |
|
74
|
2 |
0 |
if ($type eq 'text') { } |
|
109
|
2 |
0 |
if @_ |
|
119
|
1 |
22 |
if $$self{'DELETED'}{$key} |
|
120
|
6 |
16 |
if exists $$self{'OVERRIDE'}{$key} |
|
122
|
13 |
5 |
if defined $$source{$key} |
|
151
|
1 |
1 |
if exists $$self{'DELETED'}{$key} |
|
153
|
0 |
2 |
if exists $$source{$key} |
|
166
|
0 |
20 |
if ($tie) { } |
|
184
|
17 |
290 |
if ($$self{'EACH'} == -1) { } |
|
189
|
4 |
303 |
if (@result and $$self{'DELETED'}{$result[0]}) |
|
193
|
267 |
36 |
if (@result and $$self{'EACH'} > -1) |
|
195
|
7 |
260 |
if (exists $$self{'OVERRIDE'}{$key}) |
|
200
|
2 |
124 |
if (defined $$self{'SOURCES'}[$index]{$key}) |
|
206
|
0 |
264 |
wantarray ? : |
|
|
264 |
30 |
if @result |