Branch Coverage

blib/lib/CPAN/Testers/Common/DBUtils.pm
Criterion Covered Total %
branch 64 100 64.0


line true false branch
119 1 4 unless $hash{'driver'}
121 1 1 unless $hash{'database'} or $hash{'dbfile'}
133 1 2 defined $hash{'AutoCommit'} ? :
159 1 13 unless $sql
163 1 12 unless $dbv->{'dbh'}
168 1 12 if ($@ or not $sth)
177 0 12 if ($@ or not $res)
184 11 1 if ($type eq 'array') { }
215 1 4 unless $sql
219 0 4 unless $dbv->{'dbh'}
224 1 3 if ($@ or not $sth)
233 0 3 if ($@ or not $res)
239 2 1 if ($type eq 'array') { }
241 8 1 if (my $row = $sth->fetchrow_arrayref) { }
246 8 1 if (my $row = $sth->fetchrow_hashref) { }
294 2 13 unless $sql
298 1 12 unless $dbv->{'dbh'}
300 3 10 if ($idrequired) { }
304 0 3 if ($@ or not $sth)
313 0 3 if ($@ or not $res)
318 0 3 if ($dbv->{'driver'} =~ /mysql/i) { }
0 3 elsif ($dbv->{'driver'} =~ /pg/i) { }
3 0 elsif ($dbv->{'driver'} =~ /sqlite/i) { }
327 3 0 if $row = $sth->fetchrow_arrayref
330 0 0 if $row = $sth->fetchrow_arrayref
335 1 9 if ($@)
373 2 3 unless $sql and @args
377 0 3 unless $dbv->{'dbh'}
384 1 1 unless $dbv and $dbv->{'repeat'}
399 0 1 unless $sql
403 0 1 unless $dbv->{'dbh'}
408 0 1 if ($@ or not $sth)
418 0 3 if ($@ or not $res)
437 1 0 if $dbv->{'dbh'}
448 1 0 if $dbv->{'dbh'}
462 0 1 unless $_[0]
465 0 1 if $dbv->{'driver'} =~ /csv/i
469 0 1 unless $dbv->{'dbh'}
520 0 2 if ($dbv->{'driver'} =~ /ODBC/) { }
2 0 elsif ($dbv->{'driver'} =~ /SQLite/i) { }
524 2 0 if $dbv->{'database'}
525 0 2 if $dbv->{'dbhost'}
526 0 2 if $dbv->{'dbport'}
531 0 0 if $dbv->{'dbfile'}
532 0 0 if $dbv->{'database'}
533 0 0 if $dbv->{'dbhost'}
534 0 0 if $dbv->{'dbport'}
541 0 2 if $@
548 3 1 if defined $dbv->{'dbh'}
553 0 1 unless $_