Branch Coverage

blib/lib/DBIx/BatchChunker.pm
Criterion Covered Total %
branch 143 186 76.8


line true false branch
248 510 165 unless ($self->_has_dbic_retry_opts)
249 76 434 if $method eq "txn"
261 46 119 $method eq 'txn' ? :
481 32 11 if not $id_name or $id_name =~ /\./ or not defined $self->rs
684 75 619 if $self->_use_bignums
691 161 424 unless defined $val
692 0 424 if &blessed($val) or not &PerlSafeInt()->check($val)
698 118 1739 unless defined $val
699 2 1737 if &blessed($val) or not &PerlSafeInt()->check($val)
703 533 86 if (my $ls = $self->loop_state)
706 533 3198 unless defined $val
707 2 3196 if &blessed($val) or not &PerlSafeInt()->check($val)
711 3 616 if $set_bignums
717 0 3 unless $is_on
722 4 5 unless defined $val
723 2 3 if &blessed($val)
729 2 1 unless $ls
732 1 6 unless defined $val
733 0 6 if &blessed($val)
947 14 14 if ($self->rsc) { }
5 9 elsif ($self->dbic_storage) { }
989 0 28 unless defined $min_id and defined $max_id
993 2 26 if ($self->_check_bignums($min_id, $max_id)) { }
1060 29 1 if (defined $self->min_id and defined $self->max_id)
1072 1 29 unless ($count)
1077 0 29 if ($self->debug)
1094 473 125 unless defined $ls->start
1103 0 598 unless $self->_process_past_max_checker
1106 99 499 unless $self->_process_block
1112 83 416 if $self->sleep
1124 0 29 unless ($progress->silent)
1151 93 505 if ($count_stmt and defined $self->dbic_storage) { }
109 396 elsif ($count_stmt) { }
235 161 elsif (defined $rs) { }
1153 28 65 @$count_stmt == 1 ? :
1162 72 37 @$count_stmt == 1 ? :
1179 70 528 if $self->_check_bignums($chunk_count)
1182 99 499 unless $self->_chunk_count_checker
1188 211 288 if (my $stmt = $self->stmt) { }
227 61 elsif (defined $rs and $coderef) { }
1190 60 151 @$stmt > 2 ? :
1191 60 151 @$stmt > 2 ? :
1196 67 144 if ($self->single_rows and $coderef) { }
1198 44 23 if ($self->dbic_storage) { }
1221 51 93 if ($self->dbic_storage) { }
1228 5 46 if $self->coderef
1238 10 83 if $self->coderef
1246 78 149 if ($self->single_rows) { }
1290 518 80 unless $self->process_past_max
1291 74 6 unless $ls->end >= $self->max_id
1294 0 6 unless (defined $self->rsc or $self->max_stmt)
1301 0 6 if $self->debug
1303 6 0 if (defined(my $rsc = $self->rsc)) { }
0 0 elsif ($self->dbic_storage) { }
1321 2 4 if $self->_check_bignums($new_max_id)
1323 0 6 if (not $new_max_id or $new_max_id eq '0E0') { }
2 4 elsif ($new_max_id > $self->max_id) { }
4 0 elsif ($new_max_id == $self->max_id) { }
1325 0 0 if $self->debug
1333 0 2 if $self->debug
1340 0 4 if $self->debug
1344 0 0 if $self->debug
1372 429 169 if ($self->min_chunk_percent <= 0 or not defined $ls->chunk_count)
1380 3 166 if ($ls->chunk_count == 0 and $self->min_chunk_percent > 0) { }
21 145 elsif ($chunk_percent > 1 + $self->min_chunk_percent) { }
0 145 elsif ($ls->checked_count > 10) { }
11 134 elsif ($ls->end >= $self->max_id) { }
75 59 elsif ($chunk_percent < $self->min_chunk_percent) { }
1403 21 0 if not defined $lr->{'max'} or $ls->multiplier_range < $lr->{'max'}
1406 6 15 defined $lr->{'min'} ? :
1435 75 0 if not defined $lr->{'min'} or $ls->multiplier_range > $lr->{'min'}
1437 0 75 defined $lr->{'max'} ? :
1460 389 110 unless $self->target_time
1461 0 110 unless $ls->chunk_size and $ls->prev_runtime
1476 76 34 if @$timings > 5
1485 24 86 if ($adjust_factor > 1.05) { }
86 0 elsif ($adjust_factor < 0.95) { }
1488 20 4 unless $ttl >= 5
1489 0 4 if &any(sub { $_->{'runtime'} >= $self->target_time; } , @$timings)
1497 21 65 unless $ls->prev_runtime > $self->target_time
1499 0 65 $ls->prev_runtime < $self->target_time * 3 ? :
1504 65 0 if $new_target_chunk_size < 1
1509 64 5 if $new_target_chunk_size == $ls->chunk_size
1510 0 5 if $new_target_chunk_size < 1
1513 0 5 if ($self->debug)
1529 4 1 if $adjective eq "fast"
1545 0 502 if $ls->end > $self->max_id
1559 598 0 unless $self->debug
1573 0 0 if ($ls->start < 1000000000 and $ls->end < 1000000000) { }
1588 0 0 if $ls->chunk_count
1593 0 0 if ($action eq "processed")
1594 0 0 $sleep ? :
1608 0 0 if ($ls->start > 1000000000 or $ls->end > 1000000000)