Branch Coverage

blib/lib/Data/BitStream/Code/Additive.pm
Criterion Covered Total %
branch 95 158 60.1


line true false branch
43 145672 2 if $n <= $#_agl
44 2 0 if $n < 16383
77 227572 319316 if ($sum < $val) { }
246479 72837 elsif ($sum > $val) { }
83 6096 66741 if ($glen < $best_pair_len)
107 0 813 unless $self->writing
108 813 0 if ref $_[0] eq 'CODE'
110 0 813 unless ref $p eq 'ARRAY' and scalar @$p >= 1
113 0 2340 unless defined $val and $val >= 0
116 32 2308 if defined $sub and $$p[-1] < $val
120 0 2340 unless @best_pair
128 0 813 if $self->writing
129 813 0 if ref $_[0] eq 'CODE'
131 0 813 unless ref $p eq 'ARRAY' and scalar @$p >= 1
133 792 21 if (not defined $count) { }
21 0 elsif ($count < 0) { }
0 0 elsif ($count == 0) { }
143 21 2340 unless defined $i
144 0 2340 unless defined $j
148 0 2340 if (not defined $pj and defined $sub)
153 0 2340 unless defined $pi and defined $pj
157 813 0 wantarray ? :
216 0 0 if $seed > $basis[-1] + 1
218 0 0 if $seed > $basis[-1]
219 0 0 if $seed >= $max
221 0 0 if $max > $basis[-1]
234 0 0 unless $self->writing
236 0 0 unless ref $p eq 'ARRAY' and scalar @$p >= 1
239 0 0 unless (defined $_cached_bases{$handle})
248 0 0 if $self->writing
250 0 0 unless ref $p eq 'ARRAY' and scalar @$p >= 1
253 0 0 unless (defined $_cached_bases{$handle})
321 0 34 if $end < 2
322 0 34 if $end < 3
323 18 16 if ($end & 1) == 0
346 0 34 if $beg == 3
347 0 34 if $beg == 5
352 0 34 if $end < 49
361 34 490 if $p2 > $end
362 330 160 if ($p2 < $beg)
364 316 14 if $p2 < $beg
365 147 183 if $p2 % 2 == 0
369 490 0 if ($p2 <= $end)
384 0 34 if $low > $high or $high < 2
385 0 34 if $low <= 2 and $high >= 2
386 0 34 if $low <= 3 and $high >= 3
387 0 34 if $low <= 5 and $high >= 5
388 0 34 if $low < 7
389 34 0 if $low % 2 == 0
390 33 1 if $high % 2 == 0
391 0 34 if $low > $high
393 0 34 $low == 7 ? :
432 0 813 unless $self->writing
441 0 813 if $self->writing
446 21 792 wantarray ? :
453 0 813 unless $self->writing
456 0 2340 unless defined $v and $v >= 0
458 75 2265 if ($v == 0)
459 36 2229 if ($v == 1)
464 2 2227 if $_pbasis[-1] < $val
465 0 2229 unless $_pbasis[-1] >= $val
468 668 298 if ($val % 2 != 0 and $val == 3 || $val % 3 != 0)
474 397 271 if ($val == $_pbasis[$spindex])
483 569 1263 if ($val % 2 == 1)
492 0 1832 unless @best_pair
500 0 813 if $self->writing
503 792 21 if (not defined $count) { }
21 0 elsif ($count < 0) { }
0 0 elsif ($count == 0) { }
515 21 2340 unless defined $look
517 75 2265 if ($look == 6)
518 36 2229 if ($look == 7)
522 569 1660 if ($look >= 4)
528 0 2229 unless defined $i and defined $j
530 397 1832 $j == 0 ? :
531 0 2229 unless defined $$p[$maxindex]
532 0 2229 unless defined $$p[$maxindex]
533 397 1832 if ($j == 0) { }
544 21 792 wantarray ? :