Branch Coverage

blib/lib/Apache/DBI.pm
Criterion Covered Total %
branch 3 62 4.8


line true false branch
5 0 1 exists $ENV{'MOD_PERL_API_VERSION'} && $ENV{'MOD_PERL_API_VERSION'} == 2 ? :
9 0 1 if (do { $modperl::VERSION < 1.99 if defined $modperl::VERSION and $modperl::VERSION > 1 })
16 0 1 if defined $modperl::VERSION and $modperl::VERSION > 1
51 0 0 if $Apache::DBI::DEBUG >= $_[0]
68 0 0 unless $INC{'Apache.pm'}
71 0 0 if (not @ChildConnect and 'Apache'->can('push_handlers'))
89 0 0 if ($data_source =~ /dbi:\w+:.*/ and $timeout =~ /\-*\d+/)
97 0 0 if ref $class
100 0 0 defined $_ ? :
109 0 0 if (3 == $#args and ref $args[3] eq 'HASH') { }
0 0 elsif (3 == $#args) { }
111 0 0 defined $args[3]{$_} ? :
137 0 0 if ($Apache::ServerStarting and $Apache::ServerStarting == 1)
145 0 0 unless ($ChildExitHandlerInstalled)
148 0 0 if (do { 'Apache'->can('push_handlers') })
154 0 0 if ($s)
164 0 0 unless ($Rollback{$Idx})
166 0 0 if (do { 'Apache'->can('push_handlers') })
174 0 0 if ($r)
184 0 0 unless $PingTimeOut{$dsn}
185 0 0 unless $LastPingTime{$dsn}
188 0 0 $PingTimeOut{$dsn} == 0 || $PingTimeOut{$dsn} > 0 && $now - $LastPingTime{$dsn} > $PingTimeOut{$dsn} ? :
192 0 0 $needping == 1 ? :
200 0 0 if ($Connected{$Idx} and !$needping || eval { do { $Connected{$Idx}->ping } })
214 0 0 unless $Connected{$Idx}
233 0 0 if (@ChildConnect)
252 0 0 if ($@)
271 0 0 if ($Rollback{$Idx} and $dbh and $$dbh{'Active'} and not $$dbh{'AutoCommit'} and eval { do { $dbh->rollback } })
302 0 0 if ($TaintInOut)
319 0 0 if $Connected{$Idx}{'Active'} and not $Connected{$Idx}{'AutoCommit'}
326 0 0 if ($TaintInOut)