| line |
true |
false |
branch |
|
53
|
0 |
19 |
if $metadm->{'singleton'} |
|
70
|
1 |
18 |
if $dbh |
|
81
|
9 |
1549 |
unless ref $self |
|
83
|
9 |
1549 |
if (@_) |
|
84
|
1 |
8 |
if (not defined $_[0]) { } |
|
110
|
0 |
90 |
if ref $class |
|
120
|
18 |
909 |
if (not $metadm->{'singleton'}) { } |
|
|
0 |
909 |
elsif (@_) { } |
|
122
|
0 |
18 |
if exists $metadm->{'singleton'} |
|
143
|
45 |
321 |
unless ref $self |
|
146
|
36 |
330 |
if (@_ > 1) |
|
149
|
3 |
33 |
if &does($dbh, "ARRAY") and not keys %dbh_options |
|
154
|
0 |
11 |
unless not $self->{'dbh'} or $self->{'dbh'}[0]{'AutoCommit'} |
|
156
|
34 |
2 |
if ($dbh) { } |
|
158
|
0 |
34 |
unless $dbh->isa("DBI::db") |
|
163
|
0 |
34 |
unless $dbh->{'RaiseError'} |
|
167
|
17 |
17 |
unless $dbh->{'ShowErrorStatement'} or not $self->auto_show_error_statement |
|
172
|
2 |
0 |
$HE_policy eq 'override' ? : |
|
|
31 |
2 |
$HE_policy eq 'combine' ? : |
|
|
0 |
33 |
$HE_policy eq 'if_absent' ? : |
|
|
1 |
33 |
$HE_policy eq 'none' ? : |
|
179
|
9 |
25 |
if ($prev_handler || -1) == ($dbh->{'private_dbix_datamodel_handle_error'} || -2) |
|
182
|
24 |
10 |
if ($should_install) |
|
185
|
0 |
0 |
if not $was_handled |
|
186
|
2 |
22 |
$must_combine ? : |
|
192
|
34 |
0 |
unless (exists $dbh_options{'returning_through'}) |
|
194
|
0 |
34 |
if (/^Oracle/) |
|
195
|
0 |
34 |
if (/^Pg/) |
|
209
|
58 |
308 |
wantarray ? : |
|
220
|
32 |
12 |
if $pkg =~ /^DBIx::DataModel/ or $pkg =~ /^SQL::Abstract/ |
|
221
|
0 |
12 |
if $self->{'frame_filter'} |
|
228
|
4 |
0 |
if $DBI::err and $dbi_errstr ne $DBI::errstr |
|
238
|
0 |
0 |
unless ref $self |
|
250
|
1 |
2 |
unless ref $self |
|
252
|
1 |
2 |
unless @components |
|
265
|
3 |
0 |
unless ref $self |
|
268
|
0 |
3 |
unless $self->{'transaction_dbhs'} |
|
275
|
25 |
0 |
unless ref $self |
|
277
|
0 |
25 |
unless &does($coderef, "CODE") |
|
285
|
2 |
23 |
if @new_dbh |
|
290
|
0 |
25 |
unless my $dbh = $self->dbh |
|
294
|
12 |
5 |
defined wantarray ? : |
|
|
8 |
17 |
wantarray ? : |
|
309
|
15 |
10 |
if ($dbh->{'AutoCommit'}) |
|
318
|
12 |
13 |
if (@$transaction_dbhs) { } |
|
325
|
0 |
13 |
if ($dbh->isa("DBIx::RetryOverDisconnects::db")) |
|
336
|
0 |
13 |
unless $dbh->{'AutoCommit'} |
|
351
|
0 |
5 |
if ($dbh->isa("DBIx::RetryOverDisconnects::db") and $dbh->is_trans_disconnect) |
|
355
|
0 |
0 |
if $retry < $n_retries |
|
384
|
2 |
30 |
wantarray ? : |
|
398
|
109 |
11 |
unless ref $self |
|
400
|
2 |
117 |
unless my $meta_source = $self->metadm->$remote(@_) |
|
414
|
1 |
226 |
if ($debug) |
|
415
|
1 |
0 |
if (ref $debug and $debug->can('debug')) { } |
|
446
|
3 |
0 |
if exists $previous_state->{'dbh'} |
|
450
|
4 |
3 |
if $v |
|
468
|
0 |
4 |
@rollback_errs ? : |