| line |
true |
false |
branch |
|
89
|
1 |
15 |
if (@_ & 1) |
|
94
|
5 |
1 |
if (exists $Config{$opt}) { } |
|
131
|
1 |
19 |
if @_ > 3 |
|
134
|
1 |
18 |
if (defined $new and not UNIVERSAL::isa($new, "HASH")) |
|
137
|
12 |
6 |
if (defined $dbh) |
|
138
|
1 |
11 |
unless _isa($dbh, "DBI::db") |
|
142
|
6 |
11 |
if (defined $rdbh) |
|
143
|
1 |
5 |
unless _isa($rdbh, "DBI::db") |
|
145
|
1 |
4 |
if $dbh and $dbh->{'Driver'}{'Name'} ne $rdbh->{'Driver'}{'Name'} |
|
149
|
1 |
14 |
unless $new->{'dbd'} |
|
163
|
4 |
7 |
if (ref $me) |
|
164
|
1 |
3 |
if $me->{'dbh'} |
|
165
|
2 |
1 |
if @_ |
|
166
|
1 |
1 |
if ($me->config('AutoReconnect')) { } |
|
169
|
1 |
0 |
if defined $me->{'ConnectArgs'} |
|
172
|
0 |
2 |
unless $me->{'dbh'} = $me->_connect($conn, @_) |
|
176
|
1 |
6 |
if $me->config("AutoReconnect") |
|
177
|
0 |
7 |
unless my $dbh = $me->_connect($conn, @_) |
|
184
|
11 |
1 |
if (ref $me) |
|
186
|
7 |
4 |
if @_ |
|
187
|
4 |
5 |
if ($me->config('AutoReconnect')) { } |
|
190
|
2 |
3 |
if defined $me->{'ConnectReadOnlyArgs'} |
|
193
|
0 |
7 |
unless $me->{'rdbh'} = $me->_connect($conn, @_) |
|
197
|
0 |
1 |
if $me->config("AutoReconnect") |
|
198
|
0 |
1 |
unless my $dbh = $me->_connect($conn, @_) |
|
205
|
1 |
8 |
unless my $driver = ("DBI"->parse_dsn($dsn))[1] |
|
211
|
2 |
6 |
unless ref($me) =~ /::DBD::\Q$driver\E$/u or $driver eq $me->{'dbd'} |
|
217
|
0 |
0 |
if ($Config{'DebugSQL'} > 1) |
|
221
|
0 |
0 |
if $_[1]{'PrintError'} |
|
222
|
0 |
0 |
if $_[1]{'RaiseError'} |
|
229
|
14 |
6 |
if (@conn) { } |
|
|
4 |
2 |
elsif (defined $conn_idx and $ConnectArgs[$conn_idx]) { } |
|
231
|
3 |
11 |
if defined $conn_idx |
|
240
|
4 |
14 |
if ref $conn[3] eq "HASH" |
|
353
|
2 |
31 |
unless length $table |
|
356
|
2 |
29 |
if (_isa($table, 'DBIx::DBO::Table')) { } |
|
357
|
1 |
1 |
if $table->{'DBO'} != $me |
|
360
|
4 |
25 |
ref $table eq 'ARRAY' ? : |
|
364
|
13 |
16 |
unless exists $me->{'TableInfo'}{$schema // ""}{$table} |
|
377
|
3 |
1 |
if ($me->{'dbh'}) |
|
381
|
3 |
1 |
if ($me->{'rdbh'}) |
|
412
|
10 |
453 |
defined $me->{'rdbh'} ? : |
|
413
|
487 |
10 |
$type ne 'read-only' ? : |
|
414
|
2 |
495 |
unless defined $me->{$d} |
|
416
|
1 |
494 |
if exists $me->{$c} and not $me->{$d}->ping |
|
489
|
46 |
563 |
if (@_ > 2) |
|
491
|
20 |
26 |
ref $me ? : |
|
495
|
550 |
13 |
ref $me ? : |
|
501
|
8 |
8 |
unless ref $me->{'dbh'} or ref $me->{'rdbh'} |
|
505
|
8 |
0 |
if defined $stash{'dbh'} |
|
506
|
0 |
8 |
if defined $stash{'rdbh'} |
|
508
|
0 |
16 |
if defined $stash{$_} |
|
515
|
8 |
24 |
if defined $stash{$_} |
|
526
|
0 |
16 |
if exists $me->{$_} |