Branch Coverage

blib/lib/Data/Record/Serialize/Encode/dbi.pm
Criterion Covered Total %
branch 36 72 50.0


line true false branch
273 0 0 $_[0] ? :
286 0 5 defined $self->schema ? :
293 0 5 unless my(@dsn) = "DBI"->parse_dsn($_[0]->dsn)
318 0 5 unless $producer{$dbi_driver}
331 0 5 if $self->_has_dbh
343 0 5 if ($dbd eq "Sybase")
347 0 5 $self->_cached ? :
349 0 5 unless $self->_set__dbh("DBI"->$connect($self->dsn, $self->db_user, $self->db_pass, \%attr))
352 0 5 if $self->dbitrace
355 5 0 if ($self->drop_table or $self->create_table and not my $table_exists = $self->_table_exists)
363 0 5 $dbd eq 'Sybase' ? :
368 0 5 unless my $table = $schema->add_table("name", $self->_fq_table_name)
374 0 15 unless $table->add_field("name", $field_name, "data_type", $self->output_types->{$field_name})
377 0 5 if (@{$self->primary;})
378 0 0 unless $table->primary_key(@{$self->primary;})
391 0 5 unless defined $sql[0]
394 4 1 if $self->batch
458 0 0 if ($need_to_add_drop_table)
467 0 0 unless $translator->add_drop_table
469 0 0 if (wantarray) { }
471 0 0 /CREATE TABLE (\S+) [(]/u ? :
493 1 4 unless $in_txn
495 0 6 unless defined $dbh->do($statement)
497 1 4 unless $in_txn
499 0 5 unless (eval {
501 0 0 unless $in_txn
562 0 7 unless $self->_has_dbh
566 6 1 if (@{$queue;})
574 0 6 unless (defined $ret)
606 24 6 if ($self->batch) { }
609 3 21 if @{$self->queue;} == $self->batch
613 0 6 unless eval {
650 0 5 unless $self->_has_dbh
652 4 1 if $self->batch
675 0 5 if @{$self->queue;}
677 0 5 if $self->_has_dbh