| line |
true |
false |
branch |
|
183
|
2 |
2 |
if @_ |
|
191
|
2 |
14 |
if @_ |
|
197
|
2 |
2 |
$_[0] ? : |
|
|
4 |
0 |
if @_ |
|
198
|
2 |
2 |
$self->enable_retryable ? : |
|
217
|
12 |
8 |
if $timeout == -1 |
|
237
|
3 |
5 |
if ($type eq 'dbi') { } |
|
|
5 |
0 |
elsif ($type eq 'session') { } |
|
239
|
0 |
3 |
if $self->aggressive_timeouts |
|
245
|
0 |
5 |
if $self->aggressive_timeouts |
|
260
|
7 |
3 |
unless $self->_retryable_current_timeout and $self->enable_retryable |
|
275
|
0 |
0 |
unless $self->_retryable_current_timeout and $self->enable_retryable |
|
282
|
0 |
0 |
if (ref $info eq "CODE") |
|
283
|
0 |
0 |
unless $ENV{'DBIC_RETRYABLE_DONT_SET_CONNECT_SESSION_VARS'} |
|
303
|
0 |
0 |
unless $dbi_attr and ref $dbi_attr eq "HASH" |
|
317
|
13 |
5 |
unless $self->_retryable_current_timeout and $self->enable_retryable |
|
329
|
5 |
0 |
if ($dbh) |
|
335
|
0 |
5 |
if (my $error = $@) |
|
336
|
0 |
0 |
unless do {
local $@;
$self->parse_error_class->new($error)->is_transient
} |
|
342
|
0 |
0 |
if $error =~ m[Failed \w+ coderef: .+, attempts: \d+ / \d+, timer: [\d\.]+ / [\d\.]+ sec, last exception: ] |
|
344
|
0 |
0 |
if $self->warn_on_retryable_error |
|
351
|
2 |
14 |
unless $self->enable_retryable |
|
386
|
8 |
14 |
@_ ? : |
|
391
|
1 |
34 |
if ($call_type eq 'txn_do') { } |
|
|
19 |
15 |
elsif ($call_type eq 'dbh_do') { } |
|
|
15 |
0 |
elsif ($call_type eq 'connect') { } |
|
398
|
5 |
17 |
if $self->{'_in_do_block'} or $self->transaction_depth |
|
405
|
12 |
5 |
if $timeout == -1 |
|
440
|
1 |
14 |
unless $parsed_error->is_transient |
|
443
|
0 |
14 |
if $self->warn_on_retryable_error |
|
446
|
1 |
13 |
if ($sleep_time == -1) { } |
|
|
4 |
9 |
elsif ($sleep_time) { } |
|
449
|
0 |
13 |
if ($new_timeout > 0) |
|
457
|
4 |
9 |
unless ($parsed_error->error_type eq "lock") |
|
465
|
0 |
13 |
if (my $connect_error = $@) |
|
475
|
2 |
7 |
unless $self->enable_retryable |
|
497
|
0 |
1 |
unless $self->enable_retryable |
|
531
|
0 |
17 |
if ($needs_resetting) |
|
560
|
0 |
2 |
if ($self->_failed_attempt_count <= 1) |
|
581
|
2 |
17 |
if $exception_prefix |
|
583
|
17 |
2 |
unless $exception_prefix |
|
587
|
2 |
0 |
if (&blessed($error) and $error->isa('DBIx::Class::Exception')) { } |