| line |
true |
false |
branch |
|
52
|
0 |
0 |
if (ref $arg eq 'HASH') { } |
|
56
|
0 |
0 |
defined $arg ? : |
|
58
|
0 |
0 |
unless ($conn_details) |
|
68
|
0 |
0 |
if $INC{'threads.pm'} |
|
73
|
0 |
0 |
if ($handle->{'dbh'}) |
|
75
|
0 |
0 |
unless ($conn_details->{'connection_check_threshold'}) |
|
79
|
0 |
0 |
if ($handle->{'dbh'}{'Active'} and $conn_details->{'connection_check_threshold'} and time - $handle->{'last_connection_check'} < $conn_details->{'connection_check_threshold'}) { } |
|
85
|
0 |
0 |
if (_check_connection($handle->{'dbh'})) { } |
|
93
|
0 |
0 |
if ($handle->{'dbh'}) |
|
106
|
0 |
0 |
if ($handle->{'dbh'}) { } |
|
111
|
0 |
0 |
if (ref $handle_key and ref $handle_key ne ref $def_handle) |
|
145
|
0 |
0 |
if (not defined $name) { } |
|
147
|
0 |
0 |
unless ($return_settings->{'driver'} or $return_settings->{'dsn'}) |
|
155
|
0 |
0 |
unless exists $settings->{'connections'} |
|
159
|
0 |
0 |
if (my $named_settings = $settings->{'connections'}{$name}) { } |
|
182
|
0 |
0 |
if (exists $return_settings->{'connectivity-check-threshold'} and not exists $return_settings->{'connection_check_threshold'}) |
|
193
|
0 |
0 |
unless (exists $return_settings->{'connection_check_threshold'}) |
|
205
|
0 |
0 |
unless ($settings->{'dsn'} or $settings->{'driver'}) |
|
214
|
0 |
0 |
if ($settings->{'dsn'}) { } |
|
230
|
0 |
0 |
if ($driver eq 'SQLite' and $settings->{'database'} and not $settings->{'dbname'}) |
|
236
|
0 |
0 |
if (exists $settings->{$_}) |
|
240
|
0 |
0 |
if (my $even_more_dsn_args = $settings->{'dsn_extra'}) |
|
245
|
0 |
0 |
if @extra_args |
|
252
|
0 |
0 |
exists $settings->{'auto_utf8'} ? : |
|
254
|
0 |
0 |
if (lc $app_charset eq 'utf-8' and $auto_utf8) |
|
264
|
0 |
0 |
if ($param and not $settings->{'dbi_params'}{$param}) |
|
283
|
0 |
0 |
if (not $dbh) { } |
|
|
0 |
0 |
elsif (exists $settings->{'on_connect_do'}) { } |
|
290
|
0 |
0 |
ref $settings->{'on_connect_do'} eq 'ARRAY' ? : |
|
292
|
0 |
0 |
unless $dbh->do($_) |
|
330
|
0 |
0 |
unless $dbh |
|
331
|
0 |
0 |
if ($dbh->{'Active'}) { } |
|
334
|
0 |
0 |
if $@ |
|
336
|
0 |
0 |
if (int $result) { } |