| line |
true |
false |
branch |
|
47
|
7 |
0 |
if ($] >= 5.004) { } |
|
78
|
0 |
7 |
if eval 'POSIX::EWOULDBLOCK' eq 'POSIX::EWOULDBLOCK' |
|
84
|
0 |
0 |
if ($SimpleCDB::DEBUG and $_[0] <= $SimpleCDB::DEBUG) |
|
119
|
7 |
0 |
if (eval 'use Digest::MD5 (); 1') { } |
|
152
|
11991 |
169651 |
unless substr &{$digest;}($_[0]), 0, $_[1] |
|
158
|
933 |
0 |
$] >= 5.004 ? : |
|
168
|
10 |
128 |
$op & 2 ? : |
|
172
|
0 |
138 |
if ($@) { } |
|
|
0 |
138 |
elsif (not $l) { } |
|
192
|
10 |
128 |
if $flags & 1 |
|
203
|
0 |
138 |
unless defined $flags |
|
204
|
0 |
138 |
if $flags & 1024 |
|
207
|
1 |
137 |
unless (-d $dir) |
|
208
|
0 |
1 |
unless mkdir $dir, $perms | 448 |
|
216
|
10 |
128 |
if ($flags & 3) { } |
|
218
|
0 |
10 |
unless $$s{'lockfh'} = newFileHandle("$dir/$SimpleCDB::METAFILE", 577, $perms) |
|
223
|
0 |
10 |
unless _lock($s, 2) |
|
237
|
0 |
128 |
$] < 5.004 ? : |
|
238
|
0 |
128 |
unless $$s{'lockfh'} = newFileHandle("$dir/$SimpleCDB::METAFILE", $m, $perms) |
|
241
|
0 |
128 |
unless _lock($s, 1) |
|
246
|
0 |
128 |
unless defined $nfiles and defined $sep |
|
257
|
0 |
138 |
unless $nfiles =~ /^[1-9]\d*$/ |
|
289
|
160 |
2048 |
if $flags & 512 |
|
292
|
10 |
128 |
if ($flags & 3) |
|
316
|
795 |
0 |
if defined $fh |
|
318
|
0 |
0 |
unless $! == 24 |
|
327
|
0 |
0 |
if (defined $$self{'fh'}{$t}) |
|
338
|
0 |
795 |
unless defined $fh |
|
342
|
0 |
795 |
if defined ${$$self{'fpos'};}{$d} |
|
359
|
0 |
362642 |
if (not defined $_[0]) { } |
|
|
0 |
362642 |
elsif ($_[0] eq '') { } |
|
|
0 |
362642 |
elsif ($_[0] eq '_') { } |
|
|
0 |
362642 |
elsif ($_[0] eq '-') { } |
|
367
|
181642 |
181000 |
if $_[1] |
|
373
|
0 |
242641 |
if ($_[0] eq '_') { } |
|
|
0 |
242641 |
elsif ($_[0] eq '-') { } |
|
385
|
121000 |
642 |
if (exists $$self{'nextval'}) |
|
393
|
0 |
642 |
if $$self{'fflags'} & 1 |
|
403
|
119 |
523 |
defined $$self{'fh'}{$d} ? : |
|
404
|
0 |
642 |
unless defined $fh |
|
410
|
121 |
521 |
unless defined $l |
|
414
|
641 |
410695 |
if $l =~ /^\Q$key$$self{'sep'}\E/ |
|
418
|
641 |
0 |
if ($l) { } |
|
441
|
0 |
0 |
if $$self{'fflags'} & 1 |
|
451
|
0 |
0 |
defined $$self{'fh'}{$d} ? : |
|
452
|
0 |
0 |
unless defined $fh |
|
459
|
0 |
0 |
if $l =~ /^\Q$key$$self{'sep'}\E/ |
|
461
|
0 |
0 |
if defined $l |
|
468
|
0 |
0 |
$l ? : |
|
480
|
7 |
112 |
unless defined $$self{'next'} |
|
489
|
112 |
0 |
unless (defined($fh = $$self{'fh'}{$d})) |
|
491
|
112 |
0 |
if -e $$self{'f'}{$d} |
|
503
|
0 |
7 |
if $$self{'fflags'} & 1 |
|
535
|
7 |
121000 |
unless defined $l |
|
550
|
121000 |
0 |
defined $k ? : |
|
559
|
0 |
181000 |
unless $$self{'fflags'} & 3 |
|
568
|
180840 |
160 |
defined $$self{'fh'}{$d} ? : |
|
569
|
0 |
181000 |
unless defined $fh |
|
592
|
795 |
0 |
if defined $$self{'fh'}{$_} |