| line |
true |
false |
branch |
|
41
|
0 |
1 |
if $DBD::AnyData::drh |
|
53
|
1 |
0 |
unless ($DBD::AnyData::methods_already_installed++) |
|
136
|
1 |
1 |
if ($attrib eq 'f_dir') |
|
138
|
0 |
1 |
unless -d $value |
|
140
|
0 |
1 |
unless 'File::Spec'->file_name_is_absolute($value) |
|
156
|
0 |
0 |
if $dver |
|
174
|
0 |
1 |
if ($tname eq 'all' or $tname eq '') { } |
|
191
|
8 |
0 |
if ($tname) |
|
193
|
7 |
1 |
if $$self{'ad_tables'}{$tname} |
|
211
|
0 |
0 |
if ($$catalog{'format'} and 'XML HTMLtable' =~ /$$catalog{'format'}/) { } |
|
214
|
0 |
0 |
unless my $sth = $dbh->prepare("SELECT 1 FROM $table_name") |
|
217
|
0 |
0 |
if 'XML HTMLtable' =~ /$format/ |
|
230
|
0 |
0 |
if $format =~ /XML|HTMLtable/ |
|
237
|
0 |
0 |
if $newcols |
|
246
|
0 |
0 |
if ($format eq 'DBI') |
|
250
|
0 |
0 |
unless $_[1] and $_[1]{'table_name'} |
|
265
|
0 |
1 |
if $format eq 'ARRAY' |
|
269
|
0 |
1 |
if ($old_catalog) |
|
279
|
0 |
1 |
if ('XML HTMLtable' =~ /$format/) { } |
|
|
0 |
1 |
elsif (ref $file_name) { } |
|
285
|
0 |
0 |
unless $old_catalog |
|
300
|
0 |
1 |
if $format eq 'DBI' |
|
301
|
0 |
1 |
unless my $sth = $dbh2->prepare($sql) |
|
303
|
1 |
0 |
unless $sth->execute(@params) |
|
304
|
0 |
0 |
unless my $cols = $$sth{'NAME'} |
|
307
|
0 |
0 |
if ($old_records) { } |
|
312
|
0 |
0 |
unless $dbh->do($cr) |
|
316
|
0 |
0 |
if ($$flags{'lookup_key'}) |
|
332
|
0 |
0 |
unless (defined $x) |
|
338
|
0 |
0 |
if ($dup) |
|
341
|
0 |
0 |
unless $dbh->do("DELETE FROM temp__ WHERE $lookup = $val") |
|
354
|
0 |
0 |
unless $dbh->do($ins_sql, undef, @params) |
|
362
|
0 |
0 |
if $old_columns |
|
363
|
0 |
0 |
unless $$flags{'col_names'} |
|
364
|
0 |
0 |
if $format eq 'DBI' and not $$flags{'keep_connection'} |
|
365
|
0 |
0 |
if ref $file_name eq 'ARRAY' |
|
370
|
0 |
0 |
if ('XML HTMLtable' =~ /$format/) |
|
380
|
0 |
0 |
unless $$records[1] |
|
389
|
0 |
2 |
ref $specs[0] eq 'ARRAY' ? : |
|
396
|
2 |
0 |
if (ref $one_table eq 'ARRAY') |
|
399
|
0 |
2 |
unless $flags |
|
401
|
0 |
2 |
if (ref $format eq 'HASH') |
|
409
|
0 |
2 |
if (ref $one_table eq 'HASH') |
|
413
|
0 |
2 |
unless $$flags{'table_name'} |
|
428
|
0 |
0 |
unless ($sql) |
|
435
|
0 |
0 |
unless my $sth = $dbh->prepare($sql) |
|
436
|
0 |
0 |
unless $sth->execute |
|
463
|
0 |
0 |
if ($catalog) |
|
507
|
0 |
7 |
unless ($catalog) |
|
528
|
0 |
7 |
if ($cols and ref $cols ne 'ARRAY') |
|
534
|
0 |
7 |
if ('Base XML HTMLtable' =~ /$$catalog{'format'}/ or $file =~ /http:|ftp:/ or ref $file eq 'ARRAY') |
|
559
|
0 |
7 |
unless defined $$attr{'col_nums'} and defined _HASH0($$attr{'col_nums'}) |
|
577
|
0 |
0 |
if ($$dbh{'ChopBlanks'}) |
|
626
|
0 |
0 |
unless my $fh = $$self{'ad'}{'storage'}{'fh'} |