| line |
true |
false |
branch |
|
35
|
0 |
24 |
if $DBD::DBM::drh |
|
48
|
24 |
0 |
unless ($DBD::DBM::methods_already_installed++) |
|
85
|
0 |
2960 |
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 |
|
234
|
0 |
0 |
unless my $tbl_meta = $$sth{'Database'}->func($tname, 'f_schema', 'get_sql_engine_meta') |
|
279
|
0 |
344 |
if $$dbh{'dbm_mldbm'} |
|
282
|
340 |
4 |
unless defined $$meta{'f_ext'} |
|
284
|
340 |
4 |
unless (defined $$meta{'f_ext'}) |
|
287
|
340 |
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
|
340 |
0 |
if defined $ext |
|
317
|
204 |
28 |
unless (defined $$meta{'dbm_tietype'}) |
|
320
|
8 |
196 |
unless $INC{"$tie_type.pm"} |
|
321
|
0 |
204 |
if $tie_type eq 'BerkeleyDB' |
|
323
|
0 |
204 |
if ($$meta{'dbm_mldbm'}) |
|
325
|
0 |
0 |
unless $INC{'MLDBM.pm'} |
|
333
|
204 |
28 |
unless (defined $$meta{'dbm_store_metadata'}) |
|
336
|
204 |
0 |
unless defined $store |
|
340
|
216 |
16 |
unless (defined $$meta{'col_names'}) |
|
342
|
0 |
216 |
if defined $$dbh{'dbm_cols'} |
|
353
|
312 |
48 |
unless ($$flags{'dropMode'}) |
|
360
|
0 |
312 |
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
|
232 |
80 |
if $$flags{'lockMode'} |
|
382
|
52 |
260 |
if $$flags{'createMode'} |
|
387
|
0 |
312 |
if ($$meta{'dbm_mldbm'}) |
|
396
|
0 |
312 |
if $@ |
|
397
|
0 |
312 |
unless -f $$meta{'f_fqfn'} |
|
400
|
308 |
52 |
unless ($$flags{'createMode'}) |
|
403
|
308 |
0 |
if ($$meta{'dbm_store_metadata'}) |
|
406
|
260 |
48 |
if ($meta_data and $meta_data =~ m[(.+)]is) |
|
414
|
260 |
48 |
if ref $col_names ne 'ARRAY' |
|
415
|
48 |
260 |
if ($$meta{'dbm_store_metadata'} and not $$meta{'hash'}{"_metadata \000"}) |
|
417
|
48 |
0 |
unless $schema |
|
439
|
48 |
0 |
if $$meta{'hash'} |
|
442
|
48 |
0 |
if -f $$meta{'f_fqbn'} . $dirfext and $$meta{'f_ext'} eq '.pag/r' |
|
465
|
136 |
308 |
if $$meta{'dbm_store_metadata'} and $ary[0] and $ary[0] eq "_metadata \000" |
|
468
|
120 |
324 |
unless ($key) |
|
473
|
0 |
324 |
ref $val eq 'ARRAY' ? : |
|
474
|
324 |
0 |
@row ? : |
|
475
|
0 |
324 |
wantarray ? : |
|
487
|
0 |
124 |
unless $ncols == $nitems |
|
493
|
0 |
124 |
if $exists |
|
495
|
0 |
124 |
$$meta{'dbm_mldbm'} ? : |
|
510
|
0 |
52 |
if $ncols < 2 |
|
511
|
0 |
52 |
if not $$meta{'dbm_mldbm'} and $ncols > 2 |
|
515
|
0 |
52 |
unless $$meta{'dbm_store_metadata'} |
|
521
|
0 |
52 |
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
|
360 |
0 |
if $$meta{'hash'} |