| line |
true |
false |
branch |
|
360
|
0 |
1 |
unless $url |
|
361
|
1 |
0 |
scalar @_ > 1 ? : |
|
|
1 |
0 |
scalar @_ ? : |
|
368
|
0 |
1 |
$autoclean ? : |
|
386
|
1 |
0 |
if (scalar @_ >= 1) |
|
433
|
0 |
2 |
if ($dr eq 'sqlite' or $dr eq 'file') { } |
|
443
|
0 |
1 |
if scalar @_ >= 1 |
|
444
|
0 |
1 |
if $self->{'dsn'} |
|
451
|
0 |
1 |
if ($dr eq 'sqlite' or $dr eq 'file') { } |
|
|
0 |
1 |
elsif ($dr eq 'mysql') { } |
|
|
0 |
1 |
elsif ($dr eq 'maria' or $dr eq 'mariadb') { } |
|
|
1 |
0 |
elsif ($dr eq 'pg' or $dr eq 'pgsql' or $dr eq 'postgres' or $dr eq 'postgresql') { } |
|
|
0 |
0 |
elsif ($dr eq 'oracle') { } |
|
454
|
0 |
0 |
if length $db |
|
456
|
0 |
0 |
if $self->port |
|
459
|
0 |
0 |
if length $db |
|
461
|
0 |
0 |
if $self->port |
|
464
|
1 |
0 |
if length $db |
|
466
|
0 |
1 |
if $self->port |
|
470
|
0 |
0 |
if length $db |
|
471
|
0 |
0 |
if $self->port |
|
482
|
0 |
0 |
if $self->{'cachekey'} |
|
498
|
0 |
0 |
if (scalar @_ >= 1) |
|
506
|
0 |
0 |
if defined $self->dbh and $self->dbh->can("err") |
|
511
|
0 |
0 |
if defined $self->dbh and $self->dbh->can("errstr") |
|
520
|
0 |
0 |
if ($dbh) { } |
|
535
|
0 |
0 |
if ($dbh) { } |
|
546
|
0 |
0 |
unless my $dbh = $self->dbh |
|
553
|
0 |
0 |
unless $self->{'dsn'} |
|
554
|
0 |
0 |
unless my $dbh = $self->dbh |
|
555
|
0 |
0 |
unless $dbh->can("ping") |
|
567
|
0 |
0 |
unless my $dbh = $self->dbh |
|
573
|
0 |
0 |
unless my $dbh = $self->dbh |
|
579
|
0 |
0 |
unless my $dbh = $self->dbh |
|
592
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
|
0 |
0 |
@_ > 1 ? : |
|
|
0 |
0 |
@_ ? : |
|
596
|
0 |
0 |
unless my $dbh = $self->dbh |
|
597
|
0 |
0 |
unless (length $sql) |
|
604
|
0 |
0 |
unless ($sth) |
|
615
|
0 |
0 |
unless (is_array_ref($bind_values)) |
|
621
|
0 |
0 |
if (scalar @$bind_values) { } |
|
|
0 |
0 |
elsif (my $cb = $args->{'bind_callback'} || $args->{'bind_cb'}) { } |
|
623
|
0 |
0 |
defined $_ ? : |
|
627
|
0 |
0 |
unless (is_code_ref($cb)) |
|
636
|
0 |
0 |
unless (defined $rv) |
|
643
|
0 |
0 |
$rv >= 0 ? : |
|
664
|
0 |
1 |
if ${^GLOBAL_PHASE} eq "DESTRUCT" |
|
665
|
1 |
0 |
unless $self->{'autoclean'} |