| line |
true |
false |
branch |
|
21
|
22 |
4 |
if $_[0]{'_dond'} |
|
26
|
0 |
60 |
unless my $dbh = do {
if ($INC{'Apache/DBI.pm'} and $ENV{'MOD_PERL'}) {
local $DBI::connect_via = "connect";
"DBI"->connect(@args);
}
else {
"DBI"->connect(@args);
}
} |
|
27
|
1 |
60 |
if ($INC{'Apache/DBI.pm'} and $ENV{'MOD_PERL'}) { } |
|
38
|
58 |
2 |
if "DBI"->VERSION > "1.613" and @args < 4 || !exists $args[3]{'AutoInactiveDestroy'} |
|
42
|
53 |
7 |
if @args < 4 or not exists $args[3]{'RaiseError'} || exists $args[3]{'HandleError'} |
|
46
|
3 |
57 |
if $INC{'threads.pm'} |
|
75
|
35 |
64 |
unless my $dbh = $self->_seems_connected |
|
76
|
25 |
39 |
if $self->{'_in_run'} |
|
77
|
31 |
8 |
$self->connected ? : |
|
83
|
12 |
83 |
unless $self->_seems_connected |
|
88
|
5 |
60 |
unless $self->_seems_connected |
|
89
|
0 |
60 |
unless my $dbh = $self->{'_dbh'} |
|
95
|
24 |
18 |
unless @_ |
|
96
|
1 |
17 |
unless $_[0] =~ /^(?:fixup|(?:no_)?ping)$/ |
|
103
|
3 |
3 |
unless @_ |
|
108
|
1 |
70 |
unless my $dbh = +(shift())->{'_dbh'} |
|
116
|
29 |
232 |
unless my $dbh = $self->{'_dbh'} |
|
117
|
2 |
230 |
if (defined $self->{'_tid'} and $self->{'_tid'} != 'threads'->tid) { } |
|
|
3 |
227 |
elsif ($self->{'_pid'} != $$) { } |
|
128
|
208 |
19 |
$dbh->FETCH('Active') ? : |
|
133
|
16 |
9 |
if (my $dbh = $self->{'_dbh'}) |
|
148
|
21 |
23 |
ref $_[0] eq 'CODE' ? : |
|
150
|
15 |
29 |
if $mode eq "fixup" |
|
156
|
14 |
15 |
$self->{'_mode'} eq 'ping' ? : |
|
167
|
2 |
13 |
if $self->{'_in_run'} or not $dbh->FETCH("AutoCommit") |
|
177
|
2 |
11 |
if ($err) |
|
178
|
1 |
1 |
if $self->connected |
|
183
|
1 |
10 |
$wantarray ? : |
|
188
|
47 |
32 |
ref $_[0] eq 'CODE' ? : |
|
190
|
26 |
53 |
if $mode eq "fixup" |
|
198
|
20 |
33 |
$self->{'_mode'} eq 'ping' ? : |
|
200
|
6 |
47 |
unless ($dbh->FETCH("AutoCommit")) |
|
217
|
7 |
40 |
if ($err) |
|
222
|
5 |
35 |
$wantarray ? : |
|
233
|
4 |
22 |
unless $dbh->FETCH("AutoCommit") |
|
246
|
5 |
17 |
if ($err) |
|
247
|
1 |
4 |
if ($self->connected) |
|
263
|
3 |
1 |
if ($err) |
|
269
|
2 |
16 |
$wantarray ? : |
|
277
|
15 |
24 |
if not $dbh or $dbh->FETCH("AutoCommit") |
|
279
|
16 |
8 |
ref $_[0] eq 'CODE' ? : |
|
300
|
4 |
20 |
if ($err) |
|
302
|
4 |
0 |
if ($self->connected) |
|
308
|
6 |
14 |
$wantarray ? : |
|
313
|
0 |
152 |
unless local $_ = $dbh |
|
316
|
28 |
54 |
$wantarray ? : |
|
|
82 |
70 |
if defined $wantarray |