| line |
true |
false |
branch |
|
54
|
0 |
476 |
if ref $self |
|
62
|
1 |
475 |
if $ENV{'DBIX_CLASS_STORAGE_DBI_DEBUG'} or $ENV{'DBIC_TRACE'} |
|
77
|
466 |
15 |
if ref $self->{'schema'} |
|
114
|
474 |
1 |
if (ref $self and $self->schema) { } |
|
185
|
26 |
5 |
if $_[0]->failed_attempt_count == 1 |
|
204
|
8817 |
727 |
if ($self->transaction_depth == 0) { } |
|
|
4 |
723 |
elsif ($self->auto_savepoint) { } |
|
205
|
20 |
8797 |
if $self->debug |
|
228
|
8621 |
610 |
if ($self->transaction_depth == 1) { } |
|
|
610 |
0 |
elsif ($self->transaction_depth > 1) { } |
|
229
|
16 |
8605 |
if $self->debug |
|
236
|
2 |
608 |
if $self->auto_savepoint |
|
254
|
137 |
3 |
if ($self->transaction_depth == 1) { } |
|
|
3 |
0 |
elsif ($self->transaction_depth > 1) { } |
|
255
|
2 |
135 |
if $self->debug |
|
259
|
0 |
137 |
unless (&dbic_internal_try(sub {
$self->_exec_txn_rollback;
1;
}
)) |
|
274
|
2 |
1 |
if ($self->auto_savepoint) { } |
|
297
|
111 |
4 |
if (($self->transaction_depth || 0) > 1 and not $self->auto_savepoint and $self->_seems_connected) |
|
327
|
33 |
4 |
if (@args) |
|
367
|
14 |
19 |
defined &blessed($$exception) && $$exception->isa('DBIx::Class::Exception') ? : |
|
393
|
0 |
21 |
unless $self->transaction_depth |
|
396
|
0 |
21 |
unless my $exec = $self->can('_exec_svp_begin') |
|
399
|
17 |
4 |
unless defined $name |
|
404
|
9 |
12 |
if $self->debug |
|
428
|
0 |
10 |
unless $self->transaction_depth |
|
431
|
0 |
10 |
unless my $exec = $self->can('_exec_svp_release') |
|
434
|
2 |
8 |
if (defined $name) { } |
|
440
|
1 |
2 |
unless @stack |
|
449
|
0 |
8 |
unless $name = pop @{$self->savepoints;} |
|
453
|
5 |
4 |
if $self->debug |
|
471
|
0 |
14 |
unless $self->transaction_depth |
|
474
|
0 |
14 |
unless my $exec = $self->can('_exec_svp_rollback') |
|
477
|
2 |
12 |
if (defined $name) { } |
|
487
|
0 |
2 |
unless @stack |
|
493
|
0 |
12 |
unless $name = $self->savepoints->[-1] |
|
497
|
6 |
8 |
if $self->debug |
|
557
|
5 |
0 |
if ($self->debugobj->can('debugfh')) |
|
574
|
162 |
918 |
if (@_) |
|
579
|
0 |
35 |
if (my $profile = $ENV{'DBIC_TRACE_PROFILE'}) { } |
|
583
|
0 |
0 |
if ($profile =~ m[^\.?/]) { } |
|
586
|
0 |
0 |
if (my $missing = 'DBIx::Class::Optional::Dependencies'->req_missing_for('config_file_reader')) |
|
642
|
241 |
0 |
if ($self->debugobj->can('callback')) |