| line |
true |
false |
branch |
|
90
|
24 |
46098 |
if (&reftype($cref) || '') ne 'CODE' |
|
98
|
0 |
46098 |
if $storage->{'_in_do_block'} and not $self->wrap_txn |
|
101
|
46035 |
63 |
unless $storage->{'_in_do_block'} |
|
113
|
165 |
45949 |
@_ ? : |
|
117
|
472 |
45642 |
$self->wrap_txn ? : |
|
124
|
472 |
45642 |
if (defined $txn_init_depth) |
|
138
|
318 |
143 |
if (defined $txn_init_depth and not &is_exception($run_err) and defined(my $cur_depth = $storage->transaction_depth)) |
|
147
|
0 |
318 |
if ($delta_txn) { } |
|
149
|
0 |
0 |
unless $delta_txn == 1 and $cur_depth == 0 |
|
168
|
170 |
45933 |
if (&is_exception($run_err)) |
|
172
|
144 |
26 |
if $txn_begin_ok |
|
190
|
126 |
18 |
$storage->{'_dbh_autocommit'} ? : |
|
|
153 |
17 |
if defined $txn_init_depth and $txn_init_depth > ($storage->{'_dbh_autocommit'} ? 0 : 1) or not do {
local $self->storage->{'_in_do_block_retry_handler'} = 1 unless $self->storage->{'_in_do_block_retry_handler'};
$self->retry_handler->($self)
} |
|
192
|
57 |
0 |
unless $self->storage->{'_in_do_block_retry_handler'} |
|
198
|
0 |
17 |
if $self->retry_debug |
|
207
|
0 |
16 |
if defined $txn_init_depth and $storage->transaction_depth |
|
215
|
6779 |
39154 |
wantarray ? : |