| line |
true |
false |
branch |
|
299
|
0 |
0 |
$_[0] ? : |
|
311
|
0 |
1 |
unless $_->[2] eq $self->table |
|
317
|
0 |
5 |
defined $self->schema ? : |
|
325
|
0 |
5 |
unless @dsn{"scheme", "driver", "attr_string", "attr_hash", "driver_dsn"} = "DBI"->parse_dsn($_[0]->dsn) |
|
354
|
0 |
5 |
unless $producer{$dbi_driver} |
|
376
|
0 |
5 |
if $self->_has_dbh |
|
388
|
0 |
5 |
if ($dbd eq "Sybase") |
|
392
|
0 |
5 |
$self->_cached ? : |
|
394
|
5 |
0 |
if ($self->create_output_dir and $self->_is_file_based) |
|
400
|
0 |
5 |
unless eval {
do {
$dir->mkdir
}
} |
|
403
|
0 |
5 |
unless $self->_set__dbh("DBI"->$connect($self->dsn, $self->db_user, $self->db_pass, \%attr)) |
|
406
|
0 |
5 |
if $self->dbitrace |
|
409
|
5 |
0 |
if ($self->drop_table or $self->create_table and not my $table_exists = $self->_table_exists) |
|
417
|
0 |
5 |
$dbd eq 'Sybase' ? : |
|
422
|
0 |
5 |
unless my $table = $schema->add_table("name", $self->_fq_table_name) |
|
428
|
0 |
15 |
unless $table->add_field("name", $field_name, "data_type", $self->output_types->{$field_name}) |
|
431
|
0 |
5 |
if (@{$self->primary;}) |
|
432
|
0 |
0 |
unless $table->primary_key(@{$self->primary;}) |
|
446
|
0 |
5 |
unless defined $sql[0] |
|
449
|
4 |
1 |
if $self->batch |
|
513
|
0 |
0 |
if ($need_to_add_drop_table) |
|
522
|
0 |
0 |
unless $translator->add_drop_table |
|
524
|
0 |
0 |
if (wantarray) { } |
|
526
|
0 |
0 |
if (/CREATE TABLE (\S+) [(]/u) { } |
|
548
|
1 |
4 |
unless $in_txn |
|
550
|
0 |
6 |
unless defined $dbh->do($statement) |
|
552
|
1 |
4 |
unless $in_txn |
|
554
|
0 |
5 |
unless (eval {
do {
$dbh->begin_work unless $in_txn;
while ($statement = shift @sql) {
die unless defined $dbh->do($statement);
} ;
$dbh->commit unless $in_txn;
1
}
}) |
|
556
|
0 |
0 |
unless $in_txn |
|
617
|
0 |
7 |
unless $self->_has_dbh |
|
621
|
6 |
1 |
if (@{$queue;}) |
|
629
|
0 |
6 |
unless (defined $ret) |
|
661
|
24 |
6 |
if ($self->batch) { } |
|
664
|
3 |
21 |
if @{$self->queue;} == $self->batch |
|
668
|
0 |
6 |
unless eval {
do {
$self->_sth->execute(@{$_[0];}{@{$self->output_fields;}});
1
}
} |
|
705
|
0 |
5 |
unless $self->_has_dbh |
|
707
|
4 |
1 |
if $self->batch |
|
730
|
0 |
5 |
if @{$self->queue;} |
|
732
|
0 |
5 |
if $self->_has_dbh |