Branch Coverage

blib/lib/Data/BitStream/Code/Fibonacci.pm
Criterion Covered Total %
branch 68 132 51.5


line true false branch
57 0 30 unless $m >= 2
81 0 4401 unless $self->writing
83 14 4387 unless defined $fibs_order[2]
87 2 7384 unless defined $val and $val >= 0
89 3629 3755 if ($val < $fib_code_cache_size and defined $fib_code_cache[$val])
95 1362 1125 $d < $fibs[40] ? :
1268 2487 $d < $fibs[20] ? :
99 2060 1695 if ($s <= 31)
102 10323 28096 if ($d >= $fibs[$f])
107 389 1671 if ($val < $fib_code_cache_size)
118 18855 72132 if ($d >= $fibs[$s]) { }
164 0 4358 if $self->writing
166 2 4356 unless defined $fibs_order[2]
170 4334 24 if (not defined $count) { }
24 0 elsif ($count < 0) { }
0 0 elsif ($count == 0) { }
179 49 7006 unless defined $code
185 0 34626 unless defined $fibs[$b]
188 1 34625 unless defined $code
193 24 4330 wantarray ? :
201 0 816 unless $self->writing
203 0 816 unless $m >= 2 and $m <= 16
205 12 804 unless defined $fibs_order[$m]
211 0 3492 unless defined $val and $val >= 0
213 225 3267 if ($val == 0) { }
39 3228 elsif ($val == 1) { }
227 2481 747 if ($sm <= 31)
230 8573 13863 if ($d >= $fibm[$f])
242 13224 21477 if ($d >= $fibm[$s]) { }
257 0 856 if $self->writing
259 0 856 unless $m >= 2 and $m <= 16
261 2 854 unless defined $fibs_order[$m]
267 832 24 if (not defined $count) { }
24 0 elsif ($count < 0) { }
0 0 elsif ($count == 0) { }
277 24 3532 unless defined $code
278 227 3305 if ($code == $term)
295 3286 24010 if $codelen == 0
297 0 24010 unless defined $code
305 19 61951 unless defined $fibm[$s]
306 22531 39420 if $left & 1 << $c
317 24 813 wantarray ? :
334 0 0 unless $d >= 1 and $d <= 18446744073709551615
335 0 0 unless defined $fibs_order[2]
337 0 0 $d < $fibs[40] ? :
0 0 $d < $fibs[20] ? :
341 0 0 if ($d >= $fibs[$s]) { }
353 0 0 unless $str =~ /^[01]*11$/
354 0 0 unless defined $fibs_order[2]
358 0 0 if substr($str, $b, 1) eq '1'
365 0 0 unless $d >= 1 and $d <= 18446744073709551615
366 0 0 if $d == 1
368 0 0 unless defined $str
376 0 0 if $str eq '1'
377 0 0 unless $str =~ /^10[01]*1$/
380 0 0 unless defined $val
388 0 0 unless defined $val and $val >= 0
390 0 0 unless defined $c2_string
397 0 0 if $self->writing
399 0 0 if (not defined $count) { }
0 0 elsif ($count < 0) { }
0 0 elsif ($count == 0) { }
421 0 0 unless defined $b
426 0 0 unless defined $skip
431 0 0 unless defined $val
435 0 0 wantarray ? :