| line |
true |
false |
branch |
|
14
|
0 |
4 |
unless my $rootpath = shift() |
|
16
|
0 |
4 |
unless -d $rootpath or mkdir $rootpath, 511 |
|
37
|
0 |
0 |
if $key eq '' |
|
38
|
0 |
0 |
unless -e "$rootpath$key" |
|
45
|
5 |
3 |
unless (-d $path and not -l $path) |
|
47
|
0 |
5 |
if -e $path |
|
50
|
0 |
3 |
unless opendir FSDBFH, $path |
|
53
|
6 |
2 |
if $entity =~ /^\.\.?\Z/ |
|
56
|
0 |
3 |
unless rmdir $path |
|
62
|
0 |
10 |
unless defined(my $rootpath = $$ref) |
|
66
|
0 |
10 |
if $key eq '' |
|
68
|
2 |
8 |
unless -e "$rootpath$key" |
|
69
|
3 |
5 |
if (-d "$rootpath$key") |
|
71
|
2 |
1 |
if (-e "$rootpath$key/ Storable") |
|
80
|
0 |
5 |
unless open FSDBFH, "<$rootpath$key" |
|
96
|
0 |
11 |
if $key eq '' |
|
98
|
3 |
8 |
if ($refvalue) |
|
100
|
0 |
3 |
if ($CircleTracker{$value}++) |
|
104
|
2 |
1 |
unless ($refvalue eq 'HASH') |
|
107
|
0 |
2 |
unless mkdir "$rootpath TMP$rnd" |
|
122
|
0 |
1 |
if (tied %$value) { } |
|
124
|
0 |
0 |
unless tie my %tmp, ref $ref, "$rootpath TMP$rnd" |
|
135
|
0 |
0 |
if ($@) |
|
164
|
0 |
1 |
unless tie %$value, ref $ref, "$rootpath$key" |
|
177
|
0 |
3 |
if ($@) |
|
186
|
0 |
8 |
unless open FSDBFH, ">$rootpath TMP$rnd" |
|
189
|
8 |
0 |
if defined $value |
|
192
|
0 |
8 |
unless rename "$rootpath TMP$rnd", "$rootpath$key" |
|
200
|
0 |
0 |
unless defined(my $rootpath = $$ref) |
|
202
|
0 |
0 |
unless -e "$rootpath$key" |
|
203
|
0 |
0 |
if (-d "$rootpath$key") |
|
210
|
0 |
0 |
unless open FSDBFH, "<$rootpath$key" |
|
219
|
0 |
0 |
if ref $value |
|
220
|
0 |
0 |
unless open FSDBFH, ">$rootpath$$TEMP$key" |
|
221
|
0 |
0 |
if defined $value |
|
224
|
0 |
0 |
unless rename "$rootpath$$TEMP$key", "$rootpath$key" |
|
233
|
0 |
7 |
if $key eq '' |
|
235
|
0 |
7 |
unless -e "$rootpath$key" |
|
238
|
2 |
5 |
if (-d "$rootpath$key") |
|
242
|
2 |
0 |
if (defined wantarray) { } |
|
243
|
1 |
1 |
if (-e "$rootpath DELETIA$key/ Storable") |
|
247
|
0 |
1 |
if $@ |
|
261
|
0 |
1 |
if $@ |
|
266
|
0 |
0 |
if $@ |
|
271
|
5 |
0 |
if (defined wantarray) |
|
283
|
0 |
2 |
unless opendir FSDBFH, $path |
|
286
|
4 |
4 |
if $entity =~ /^\.\.?\Z/ |
|
288
|
1 |
3 |
if (-d $entity) |
|
290
|
0 |
1 |
if $@ |
|
303
|
0 |
2 |
unless opendir FSDBFH, $path |
|
314
|
2 |
2 |
unless @{$IteratorListings{$ref};} |
|
316
|
0 |
2 |
if ($key =~ s/^ //) |
|
317
|
0 |
0 |
if ($key = /^ /) { } |
|
|
0 |
0 |
elsif ($key eq 'EMPTY') { } |
|
331
|
2 |
0 |
unless wantarray |