| line |
true |
false |
branch |
|
33
|
1 |
6 |
unless $path =~ s/^k// |
|
44
|
1 |
7 |
unless (exists $opts{'dirname'}) |
|
47
|
0 |
7 |
unless (-d $opts{'dirname'}) |
|
52
|
1 |
6 |
if (%opts) |
|
61
|
0 |
26 |
unless ($not_exiting and defined $$self{'dirname'}) |
|
68
|
0 |
26 |
unless store(\$value, $path) |
|
71
|
0 |
26 |
if ($@) |
|
74
|
17 |
9 |
if (defined $$self{'backedkeys'}{$key}) |
|
76
|
17 |
0 |
if defined $slot |
|
83
|
2 |
22 |
if (defined $$self{'backedkeys'}{$key}) |
|
89
|
0 |
22 |
unless -e $path |
|
94
|
0 |
0 |
if (not defined $ref and $@) |
|
97
|
4 |
18 |
unless (ref $$ref) |
|
122
|
4 |
6 |
unless (defined $$self{'iterator'}) |
|
123
|
0 |
4 |
unless $$self{'iterator'} = 'IO::Dir'->new($$self{'dirname'}) |
|
129
|
4 |
16 |
unless (defined $ent) |
|
130
|
0 |
4 |
if ($! != 0 and not $! =~ /file desc/) |
|
137
|
9 |
7 |
unless -r $path and -f $path |
|
139
|
1 |
6 |
unless defined $key |
|
148
|
0 |
1 |
unless -e $path |
|
149
|
0 |
1 |
unless unlink $path |
|
151
|
1 |
0 |
if (defined $$self{'backedkeys'}{$key}) |
|
153
|
1 |
0 |
if defined $slot |
|
161
|
0 |
1 |
unless my $dirh = 'IO::Dir'->new($$self{'dirname'}) |
|
165
|
2 |
5 |
unless -f $path |
|
166
|
0 |
5 |
unless unlink $path |
|
171
|
0 |
0 |
if defined $slot |
|
184
|
0 |
1 |
unless defined $_ |
|
201
|
0 |
0 |
unless defined $_ |