| line |
true |
false |
branch |
|
35
|
0 |
26 |
if $DBD::DBM::drh |
|
48
|
26 |
0 |
unless ($DBD::DBM::methods_already_installed++) |
|
85
|
0 |
2968 |
if ($attrib eq 'dbm_ext' or $attrib eq 'dbm_lockfile') |
|
88
|
0 |
0 |
if $^W |
|
99
|
0 |
0 |
if ($attrib eq 'dbm_ext' or $attrib eq 'dbm_lockfile') |
|
102
|
0 |
0 |
if $^W |
|
171
|
0 |
8 |
if $table |
|
172
|
8 |
0 |
unless $meta |
|
182
|
0 |
8 |
if ($meta->{'dbm_mldbm'}) |
|
197
|
0 |
0 |
if $dver |
|
217
|
264 |
1532 |
if ($attr eq 'NULLABLE') |
|
224
|
264 |
0 |
if $attr eq 'NULLABLE' |
|
233
|
0 |
0 |
unless $tname |
|
235
|
0 |
0 |
unless my $tbl_meta = $sth->{'Database'}->func($tname, 'f_schema', 'get_sql_engine_meta') |
|
279
|
0 |
352 |
if $dbh->{'dbm_mldbm'} |
|
283
|
346 |
6 |
unless defined $meta->{'f_ext'} |
|
284
|
346 |
6 |
unless (defined $meta->{'f_ext'}) |
|
287
|
346 |
0 |
if ($meta->{'dbm_type'} eq 'SDBM_File' or $meta->{'dbm_type'} eq 'ODBM_File') { } |
|
|
0 |
0 |
elsif ($meta->{'dbm_type'} eq 'NDBM_File') { } |
|
295
|
0 |
0 |
if ($^O =~ /bsd/i or lc $^O eq 'darwin') { } |
|
|
0 |
0 |
elsif ($^O eq 'SunOS' or $^O eq 'Solaris' or $^O eq 'AIX') { } |
|
305
|
346 |
0 |
if defined $ext |
|
317
|
208 |
30 |
unless (defined $meta->{'dbm_tietype'}) |
|
320
|
10 |
198 |
unless $INC{"$tie_type.pm"} |
|
321
|
0 |
208 |
if $tie_type eq 'BerkeleyDB' |
|
323
|
0 |
208 |
if ($meta->{'dbm_mldbm'}) |
|
325
|
0 |
0 |
unless $INC{'MLDBM.pm'} |
|
333
|
208 |
30 |
unless (defined $meta->{'dbm_store_metadata'}) |
|
336
|
208 |
0 |
unless defined $store |
|
340
|
220 |
18 |
unless (defined $meta->{'col_names'}) |
|
342
|
0 |
220 |
if defined $dbh->{'dbm_cols'} |
|
353
|
320 |
48 |
unless ($flags->{'dropMode'}) |
|
360
|
0 |
320 |
if ($meta->{'dbm_type'} eq 'BerkeleyDB') { } |
|
365
|
0 |
0 |
if (my $f = $meta->{'dbm_berkeley_flags'}) |
|
367
|
0 |
0 |
if defined $f->{'DB_CREATE'} |
|
368
|
0 |
0 |
if defined $f->{'DB_RDONLY'} |
|
371
|
0 |
0 |
$flags->{'lockMode'} || $flags->{'createMode'} ? : |
|
381
|
238 |
82 |
if $flags->{'lockMode'} |
|
382
|
54 |
266 |
if $flags->{'createMode'} |
|
387
|
0 |
320 |
if ($meta->{'dbm_mldbm'}) |
|
396
|
0 |
320 |
if $@ |
|
397
|
0 |
320 |
unless -f $meta->{'f_fqfn'} |
|
400
|
314 |
54 |
unless ($flags->{'createMode'}) |
|
403
|
314 |
0 |
if ($meta->{'dbm_store_metadata'}) |
|
406
|
266 |
48 |
if ($meta_data and $meta_data =~ m[(.+)]is) |
|
414
|
266 |
48 |
if ref $col_names ne 'ARRAY' |
|
415
|
48 |
266 |
if ($meta->{'dbm_store_metadata'} and not $meta->{'hash'}{"_metadata \000"}) |
|
417
|
48 |
0 |
unless $schema |
|
439
|
48 |
0 |
if $meta->{'hash'} |
|
444
|
48 |
0 |
if -f $meta->{'f_fqbn'} . $dirfext and $meta->{'f_ext'} eq '.pag/r' |
|
465
|
138 |
312 |
if $meta->{'dbm_store_metadata'} and $ary[0] and $ary[0] eq "_metadata \000" |
|
468
|
122 |
328 |
unless ($key) |
|
473
|
0 |
328 |
ref $val eq 'ARRAY' ? : |
|
474
|
328 |
0 |
@row ? : |
|
475
|
0 |
328 |
wantarray ? : |
|
487
|
0 |
128 |
unless $ncols == $nitems |
|
493
|
0 |
128 |
if $exists |
|
495
|
0 |
128 |
$meta->{'dbm_mldbm'} ? : |
|
510
|
0 |
54 |
if $ncols < 2 |
|
512
|
0 |
54 |
if not $meta->{'dbm_mldbm'} and $ncols > 2 |
|
515
|
0 |
54 |
unless $meta->{'dbm_store_metadata'} |
|
521
|
0 |
54 |
if $stmt->can('schema_str') |
|
539
|
120 |
16 |
if $key_only |
|
540
|
0 |
16 |
unless exists $meta->{'hash'}{$key} |
|
542
|
0 |
16 |
ref $val eq 'ARRAY' ? : |
|
544
|
0 |
16 |
wantarray ? : |
|
559
|
0 |
0 |
unless defined $key |
|
560
|
0 |
0 |
ref $aryref eq 'ARRAY' ? : |
|
561
|
0 |
0 |
$meta->{'dbm_mldbm'} ? : |
|
570
|
0 |
56 |
unless defined $key |
|
571
|
0 |
56 |
unless $key eq $newkey |
|
572
|
56 |
0 |
ref $aryref eq 'ARRAY' ? : |
|
573
|
0 |
56 |
$meta->{'dbm_mldbm'} ? : |
|
583
|
368 |
0 |
if $meta->{'hash'} |