| line |
true |
false |
branch |
|
21
|
36 |
68 |
if (@_ and ref $_[0] || !1) |
|
26
|
3 |
33 |
if $dbh |
|
32
|
12 |
33 |
if $@ |
|
33
|
33 |
12 |
if $dbh |
|
36
|
33 |
0 |
if ($dbh) |
|
38
|
0 |
33 |
wantarray ? : |
|
48
|
6 |
62 |
if $cached_dbh |
|
53
|
4 |
58 |
exists $$attr{'ScopeContainerConnectRetry'} ? : |
|
55
|
1 |
61 |
if $sleep |
|
57
|
0 |
62 |
unless (is_class_loaded($DBI_CLASS)) |
|
65
|
0 |
62 |
if ($INC{'Apache/DBI.pm'} and $ENV{'MOD_PERL'}) { } |
|
71
|
12 |
48 |
unless $connect |
|
76
|
48 |
14 |
if $connect |
|
77
|
0 |
14 |
if $sleep and $retry != $_ |
|
81
|
14 |
48 |
unless $dbh |
|
87
|
0 |
48 |
if $INC{'threads.pm'} |
|
90
|
33 |
15 |
wantarray ? : |
|
105
|
73 |
31 |
unless in_scope_container() |
|
107
|
21 |
10 |
unless $dbi |
|
110
|
0 |
10 |
if (defined $$dbi{'tid'} and $$dbi{'tid'} != 'threads'->tid) |
|
113
|
1 |
9 |
if ($$dbi{'pid'} != $$) |
|
117
|
9 |
0 |
if $dbh->FETCH('Active') and $dbh->ping |
|
123
|
61 |
20 |
unless in_scope_container() |
|
131
|
0 |
62 |
if ref $class or not defined $class or not length $class |
|
140
|
0 |
62 |
unless exists $$pack{$part} |
|
143
|
0 |
62 |
if ref $entry ne 'GLOB' |
|
147
|
0 |
62 |
unless %{$pack;} |
|
151
|
61 |
0 |
if exists $$pack{'VERSION'} and defined *{$$pack{'VERSION'};}{'SCALAR'} and defined ${$$pack{'VERSION'};} |
|
153
|
1 |
0 |
if exists $$pack{'ISA'} and defined *{$$pack{'ISA'};}{'ARRAY'} and @{$$pack{'ISA'};} != 0 |
|
158
|
0 |
0 |
if ref $entry ne 'GLOB' or defined *{$entry;}{'CODE'} |