| line |
true |
false |
branch |
|
170
|
1 |
1 |
unless defined $keynum and $keynum =~ /^[0-9]+$/ |
|
179
|
0 |
1 |
unless tie my %dbm_hash, $self->dbm_package, "$dir/$name", @{$self->dbm_parms;} |
|
203
|
1 |
1 |
if $key =~ /^_[0-9]+$/ |
|
211
|
0 |
1 |
unless tie my %dbm_hash, $self->dbm_package, "$dir/$name", @{$self->dbm_parms;} |
|
228
|
0 |
49 |
if @_ > 1 |
|
229
|
37 |
37 |
if @_ > 1 |
|
230
|
0 |
74 |
if @_ > 1 |
|
231
|
0 |
37 |
if @_ > 1 |
|
232
|
0 |
37 |
if @_ > 1 |
|
278
|
0 |
8 |
if ($dbm_specs) |
|
283
|
0 |
8 |
unless eval "require $$self{'dbm_package'}; 1" |
|
297
|
1 |
16 |
if $key =~ /^_[0-9]+$/ |
|
305
|
0 |
16 |
unless tie my %dbm_hash, $self->dbm_package, "$dir/$name", @{$self->dbm_parms;} |
|
313
|
0 |
16 |
unless defined $keynum |
|
344
|
1 |
17 |
if $key =~ /^_[0-9]+$/ |
|
354
|
0 |
17 |
unless tie my %dbm_hash, $self->dbm_package, "$dir/$name", @{$self->dbm_parms;} |
|
364
|
4 |
13 |
if (defined $keynum) { } |
|
367
|
0 |
4 |
if (not $reftype or $reftype eq 'SCALAR') { } |
|
|
2 |
2 |
elsif ($reftype =~ /Record/) { } |
|
|
1 |
1 |
elsif ($reftype eq 'HASH') { } |
|
377
|
1 |
1 |
if ($keynum != $parms->keynum) { } |
|
387
|
1 |
0 |
unless $$parms{'record'} |
|
400
|
1 |
12 |
if (not $reftype or $reftype eq 'SCALAR') { } |
|
|
11 |
1 |
elsif ($reftype =~ /Record/ or $reftype eq 'HASH') { } |
|
416
|
12 |
1 |
unless ($error) |
|
427
|
3 |
14 |
if $error |
|
449
|
0 |
1 |
unless tie my %dbm_hash, $self->dbm_package, "$dir/$name", @{$self->dbm_parms;} |
|
455
|
1 |
0 |
if ($exists = exists $dbm_hash{$key}) |
|
470
|
0 |
1 |
unless $exists |
|
496
|
0 |
0 |
unless tie my %dbm_hash, $self->dbm_package, "$dir/$name", @{$self->dbm_parms;} |
|
521
|
0 |
0 |
unless tie my %dbm_hash, $self->dbm_package, "$dir/$name", @{$self->dbm_parms;} |
|
526
|
0 |
0 |
if ($keynum++ < $ds->lastkeynum) |
|
555
|
1 |
1 |
if $key =~ /^_[0-9]+$/ |
|
558
|
0 |
1 |
unless $ds->exists |
|
565
|
0 |
1 |
unless tie my %dbm_hash, $self->dbm_package, "$dir/$name", @{$self->dbm_parms;} |
|
573
|
1 |
0 |
unless $exists |
|
583
|
0 |
0 |
if $count |
|
603
|
0 |
19 |
unless sysopen $fh, $file, 64 |
|
604
|
0 |
19 |
unless flock $fh, 1 |
|
623
|
0 |
18 |
unless sysopen $fh, $file, 66 |
|
625
|
0 |
18 |
unless flock $fh, 2 |
|
643
|
0 |
37 |
unless close $fh |
|
653
|
1 |
12 |
unless /^
name
|dir
|retrieve
|retrieve_preamble
|locate_record_data
|history
|userdata
|howmany
|lastkeynum
|nextkeynum
$/x |