| line |
true |
false |
branch |
|
14
|
0 |
7 |
unless my $rootpath = shift() |
|
16
|
0 |
7 |
unless -d $rootpath or mkdir $rootpath, 511 |
|
40
|
0 |
0 |
if $key eq '' |
|
41
|
0 |
0 |
unless -e "$rootpath$key" |
|
48
|
4 |
2 |
unless (-d $path and not -l $path) |
|
50
|
0 |
4 |
if -e $path |
|
53
|
0 |
2 |
unless opendir FSDBFH, $path |
|
58
|
4 |
2 |
if $entity =~ /^\.\.?\Z/ |
|
67
|
0 |
2 |
unless rmdir $path |
|
73
|
0 |
11 |
unless defined(my $rootpath = $$ref) |
|
78
|
0 |
11 |
if $key eq '' |
|
80
|
2 |
9 |
unless -e "$rootpath$key" |
|
81
|
3 |
6 |
if (-d "$rootpath$key") |
|
84
|
0 |
3 |
if (-f "$rootpath$key/ ARRAY") |
|
89
|
0 |
0 |
$_ eq 'DATAPATH' ? : |
|
91
|
0 |
0 |
unless tie @newarr, $classname, map({$_ eq 'DATAPATH' ? "$rootpath$key/DATA" : $_;} @TieArgs) |
|
96
|
0 |
0 |
if $@ |
|
98
|
0 |
0 |
-f "$rootpath$key/ BLESS" ? : |
|
107
|
2 |
1 |
-f "$rootpath$key/ BLESS" ? : |
|
115
|
0 |
6 |
unless open FSDBFH, "<$rootpath$key" |
|
132
|
0 |
11 |
if $key eq '' |
|
134
|
3 |
8 |
if ($refvalue) |
|
136
|
0 |
3 |
if ($refvalue eq 'ARRAY') |
|
140
|
0 |
0 |
$_ eq 'DATAPATH' ? : |
|
143
|
0 |
0 |
if $Xbless |
|
154
|
0 |
0 |
unless tie @$value, $CN, @TieArgs |
|
161
|
0 |
0 |
if $ERR |
|
163
|
0 |
0 |
if ($@) |
|
169
|
0 |
3 |
if ($CircleTracker{$value}++) |
|
174
|
2 |
1 |
unless ($refvalue eq 'HASH') |
|
178
|
1 |
1 |
if $underly eq 'HASH' |
|
179
|
0 |
1 |
if ($underly eq 'ARRAY') |
|
189
|
0 |
2 |
if (tied %$value) { } |
|
191
|
0 |
0 |
unless tie my %tmp, ref $ref, "$rootpath TMP$rnd" |
|
202
|
0 |
0 |
if ($@) |
|
231
|
0 |
2 |
unless tie %$value, ref $ref, "$rootpath$key" |
|
236
|
1 |
1 |
if (defined $bless) |
|
248
|
0 |
2 |
if ($@) |
|
258
|
0 |
8 |
unless open FSDBFH, ">$rootpath TMP$rnd" |
|
261
|
8 |
0 |
if defined $value |
|
264
|
0 |
8 |
unless rename "$rootpath TMP$rnd", "$rootpath$key" |
|
272
|
0 |
2 |
unless defined(my $rootpath = $$ref) |
|
274
|
0 |
2 |
unless -e "$rootpath$key" |
|
275
|
0 |
2 |
if (-d "$rootpath$key") |
|
282
|
0 |
2 |
unless open FSDBFH, "<$rootpath$key" |
|
293
|
0 |
1 |
if ref $value |
|
294
|
0 |
1 |
unless open FSDBFH, ">$rootpath$$TEMP$key" |
|
295
|
1 |
0 |
if defined $value |
|
298
|
0 |
1 |
unless rename "$rootpath$$TEMP$key", "$rootpath$key" |
|
307
|
0 |
5 |
if $key eq '' |
|
309
|
0 |
5 |
unless -e "$rootpath$key" |
|
311
|
1 |
4 |
if (-d "$rootpath$key") |
|
314
|
0 |
1 |
unless rename "$rootpath$key", "$rootpath DELETIA$key" |
|
316
|
1 |
0 |
if (defined wantarray) { } |
|
327
|
0 |
1 |
if $@ |
|
332
|
0 |
0 |
if $@ |
|
337
|
4 |
0 |
if (defined wantarray) |
|
343
|
0 |
4 |
unless unlink "$rootpath$key" |
|
350
|
0 |
2 |
unless opendir FSDBFH, $path |
|
353
|
4 |
4 |
if $entity =~ /^\.\.?\Z/ |
|
355
|
1 |
3 |
if (-d $entity) |
|
357
|
0 |
1 |
if $@ |
|
370
|
0 |
5 |
unless opendir FSDBFH, $path |
|
371
|
11 |
0 |
if defined $_ |
|
381
|
5 |
1 |
unless @{$IteratorListings{$ref};} |
|
385
|
0 |
1 |
if ($key =~ s/^ //) |
|
387
|
0 |
0 |
if ($key =~ /^ /) { } |
|
|
0 |
0 |
elsif ($key eq 'EMPTY') { } |
|
401
|
1 |
0 |
unless wantarray |
|
415
|
0 |
0 |
if (@_) |
|
417
|
0 |
0 |
unless length $key |
|
433
|
0 |
0 |
unless rmdir "$$_[0] LOCK" |
|
437
|
0 |
0 |
unless delete $OldLocks{"$_[0]"} or rmdir "$$_[0] LOCK" |