Branch Coverage

blib/lib/DBD/Wire10.pm
Criterion Covered Total %
branch 0 158 0.0


line true false branch
24 0 0 if $DBD::Wire10::drh
31 0 0 unless ($methods_already_installed++)
38 0 0 if $@
57 0 0 unless defined $dsn
60 0 0 if ($dsn =~ /([^:;]*)[:;](.*)/) { }
67 0 0 if ($val =~ /([^=]*)=(.*)/) { }
70 0 0 if ($var eq 'hostname' or $var eq 'host') { }
0 0 elsif ($var eq 'db' or $var eq 'dbname') { }
79 0 0 unless (defined $$hash{$var})
120 0 0 unless (defined $wire)
137 0 0 if ($@)
180 0 0 if ($@)
191 0 0 if ($key =~ /^AutoCommit$/)
196 0 0 if ($@)
197 0 0 unless $wire->is_connected
198 0 0 if ($dbh->FETCH('Warn'))
207 0 0 if ($key =~ /^(?:wire10_connect_timeout)$/)
213 0 0 if ($key =~ /^(?:wire10_query_timeout)$/)
219 0 0 if ($key =~ /^(?:wire10_debug)$/)
225 0 0 if ($key =~ /^(?:wire10_.*)$/)
237 0 0 if ($key =~ /^(?:wire10_connect_timeout)$/)
241 0 0 if ($key =~ /^(?:wire10_query_timeout)$/)
245 0 0 if ($key =~ /^(?:wire10_debug)$/)
250 0 0 if ($key =~ /^AutoCommit$/)
255 0 0 if $key =~ /^(?:wire10_.*)$/
262 0 0 if ($dbh->FETCH('AutoCommit'))
263 0 0 if ($dbh->FETCH('Warn'))
277 0 0 if ($dbh->FETCH('AutoCommit'))
278 0 0 if ($dbh->FETCH('Warn'))
298 0 0 if ($error) { }
0 0 elsif ($@) { }
311 0 0 if ($wire->is_connected)
317 0 0 unless ($wire->is_connected)
328 0 0 if ($error) { }
0 0 elsif ($@) { }
345 0 0 if defined $wire
353 0 0 if $dbh->FETCH('Active')
369 0 0 if $type == 17
371 0 0 if $type == 18
373 0 0 if $type == 29
375 0 0 if $type == 41
380 0 0 if $type == 114
389 0 0 unless $$dbh{'ChildHandles'}
390 0 0 unless $sth
391 0 0 if $$sth{'Active'}
454 0 0 unless defined $attr
459 0 0 if ref $attr eq ''
460 0 0 if ref $attr eq 'HASH'
461 0 0 if (defined $sqltype)
462 0 0 if $sqltype == SQL_BINARY
463 0 0 if $sqltype == SQL_VARBINARY
464 0 0 if $sqltype == SQL_LONGVARBINARY
465 0 0 if $sqltype == SQL_BLOB
470 0 0 if ref $attr eq 'HASH'
471 0 0 if defined $oratype and $oratype == 113
482 0 0 unless (defined $ps)
487 0 0 if (scalar @new_params > 0)
498 0 0 $stream_results ? :
500 0 0 if $wire->get_error_info
507 0 0 if ($res->has_results) { }
530 0 0 if ($@)
545 0 0 if ($error) { }
0 0 elsif ($@) { }
553 0 0 $rowcount ? :
564 0 0 if ($@)
577 0 0 if defined $iterator
587 0 0 unless ($iterator)
588 0 0 if ($sth->FETCH('Warn'))
598 0 0 if ($@)
602 0 0 unless ($row)
607 0 0 if ($sth->FETCH('ChopBlanks'))
620 0 0 unless $rows == -1
628 0 0 if $key eq 'NAME'
629 0 0 if $key eq 'NULLABLE'
630 0 0 if $key =~ /^wire10_/
638 0 0 if ($key eq 'NAME')
642 0 0 if ($key eq 'NULLABLE')
646 0 0 if ($key =~ /^wire10_/)
656 0 0 if $sth->FETCH('Active')