Branch Coverage

blib/lib/MPMinus/Store/DBI.pm
Criterion Covered Total %
branch 18 76 23.6


line true false branch
333 1 0 unless ($dsn)
335 1 0 if (grep {$driver eq $_;} @adrivers) { }
336 0 1 if ($driver =~ /mysql/i) { }
0 1 elsif ($driver =~ /Oracle/i) { }
337 0 0 $host ? :
0 0 $port ? :
339 0 0 if ($host) { }
340 0 0 $db ? :
0 0 $port ? :
342 0 0 $db ? :
0 0 $port ? :
346 0 1 $db ? :
0 1 $host ? :
0 1 $port ? :
364 1 0 if ($dsn) { }
366 0 1 unless $obj and ref $obj eq 'MPMinus::Store::DBI'
368 0 1 unless $obj->{'dbh'}
369 0 1 if ($m and ref $m eq 'MPMinus') { }
372 0 1 if $MPMinus::Store::DBI::DEBUG_FORCE
374 1 0 if $obj
384 0 0 unless $self and ref $self eq 'MPMinus::Store::DBI'
385 0 0 unless $self->{'dsn'}
386 0 0 unless $self->{'dbh'}
387 0 0 unless $self->{'dbh'}->can('ping')
404 0 0 if ($self->{'dbh'})
405 0 0 if ($m and ref $m eq 'MPMinus') { }
408 0 0 if $MPMinus::Store::DBI::DEBUG_FORCE
416 0 0 if $self->{'dbh'} and $self->{'dbh'}->can('err')
417 0 0 defined $DBI::err ? :
421 0 0 if $self->{'dbh'} and $self->{'dbh'}->can('errstr')
422 0 0 defined $DBI::errstr ? :
426 0 0 if $self->{'dbh'} and $self->{'dbh'}->can('state')
427 0 0 defined $DBI::state ? :
432 1 0 if $self->{'dsn'}
434 0 1 if $self->{'m'}
436 1 0 if ($dsn and $self->{'dbh'})
437 0 1 if ($m and ref $m eq 'MPMinus') { }
440 0 1 if $MPMinus::Store::DBI::DEBUG_FORCE