Branch Coverage

blib/lib/DBIx/BatchChunker.pm
Criterion Covered Total %
branch 147 190 77.3


line true false branch
248 521 165 unless ($self->_has_dbic_retry_opts)
249 76 445 if $method eq "txn"
261 46 119 $method eq 'txn' ? :
481 34 12 if not $id_name or $id_name =~ /\./ or not defined $self->rs
684 80 624 if $self->_use_bignums
691 161 428 unless defined $val
692 0 428 if &blessed($val) or not &PerlSafeInt()->check($val)
698 122 1750 unless defined $val
699 2 1748 if &blessed($val) or not &PerlSafeInt()->check($val)
703 535 89 if (my $ls = $self->loop_state)
706 535 3210 unless defined $val
707 4 3206 if &blessed($val) or not &PerlSafeInt()->check($val)
711 4 620 if $set_bignums
717 0 4 unless $is_on
722 4 8 unless defined $val
723 2 6 if &blessed($val)
729 2 2 unless $ls
732 2 12 unless defined $val
733 0 12 if &blessed($val)
947 15 14 if ($self->rsc) { }
5 9 elsif ($self->dbic_storage) { }
989 0 29 unless defined $min_id and defined $max_id
993 2 27 if ($self->_check_bignums($min_id, $max_id)) { }
1060 30 1 if (defined $self->min_id and defined $self->max_id)
1072 1 30 unless ($count)
1077 0 30 if ($self->debug)
1094 475 130 unless defined $ls->start
1103 0 605 unless $self->_process_past_max_checker
1106 103 502 unless $self->_process_block
1112 83 419 if $self->sleep
1124 0 30 unless ($progress->silent)
1151 93 512 if ($count_stmt and defined $self->dbic_storage) { }
109 403 elsif ($count_stmt) { }
242 161 elsif (defined $rs) { }
1153 28 65 @$count_stmt == 1 ? :
1162 72 37 @$count_stmt == 1 ? :
1179 76 529 if $self->_check_bignums($chunk_count)
1182 103 502 unless $self->_chunk_count_checker
1188 211 291 if (my $stmt = $self->stmt) { }
230 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 152 if ($self->single_rows) { }
1290 525 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 176 if ($self->min_chunk_percent <= 0 or not defined $ls->chunk_count)
1380 3 173 if ($ls->chunk_count == 0 and $self->min_chunk_percent > 0) { }
12 161 elsif ($ls->end - $ls->start <= 0) { }
25 136 elsif ($chunk_percent > 1 + $self->min_chunk_percent) { }
0 136 elsif ($ls->checked_count > 10) { }
8 128 elsif ($ls->end >= $self->max_id) { }
75 53 elsif ($chunk_percent < $self->min_chunk_percent) { }
1398 9 3 if ($ls->chunk_count > 1)
1415 25 0 if not defined $lr->{'max'} or $ls->multiplier_range < $lr->{'max'}
1418 6 19 defined $lr->{'min'} ? :
1448 75 0 if not defined $lr->{'min'} or $ls->multiplier_range > $lr->{'min'}
1450 0 75 defined $lr->{'max'} ? :
1473 392 110 unless $self->target_time
1474 0 110 unless $ls->chunk_size and $ls->prev_runtime
1489 76 34 if @$timings > 5
1498 24 86 if ($adjust_factor > 1.05) { }
86 0 elsif ($adjust_factor < 0.95) { }
1501 20 4 unless $ttl >= 5
1502 0 4 if &any(sub { $_->{'runtime'} >= $self->target_time; } , @$timings)
1510 21 65 unless $ls->prev_runtime > $self->target_time
1512 0 65 $ls->prev_runtime < $self->target_time * 3 ? :
1517 65 0 if $new_target_chunk_size < 1
1522 64 5 if $new_target_chunk_size == $ls->chunk_size
1523 0 5 if $new_target_chunk_size < 1
1526 0 5 if ($self->debug)
1542 4 1 if $adjective eq "fast"
1558 0 505 if $ls->end > $self->max_id
1572 605 0 unless $self->debug
1586 0 0 if ($ls->start < 1000000000 and $ls->end < 1000000000) { }
1601 0 0 if $ls->chunk_count
1606 0 0 if ($action eq "processed")
1607 0 0 $sleep ? :
1621 0 0 if ($ls->start > 1000000000 or $ls->end > 1000000000)