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
|