Branch Coverage

blib/lib/Math/NumSeq/Repdigits.pm
Criterion Covered Total %
branch 48 60 80.0


line true false branch
81 0 20 if ($radix < 2)
87 16 4 if ($radix != 2)
96 0 0 if ($radix == 2) { }
97 0 0 if ($i == 0) { }
119 14 118 if ($radix == 2) { }
120 0 14 if ($i == 31)
123 12 2 if ($i)
132 14 104 if (++$$self{'digit'} >= $radix)
148 0 371 if (_is_infinite($i))
152 29 342 if ($radix == 2)
153 1 28 $i >= 31 ? :
157 18 324 if (($i -= 1) < 0)
170 1653 1723 if ($value != $int)
177 71 1652 if ($radix == 2)
181 1028 624 if ($radix == 10)
188 562 139 unless ($value % $radix == $digit)
199 0 835 if (_is_infinite($value))
202 23 812 if ($value <= 0)
206 63 749 if ($value != $int)
212 0 812 unless my(@digits) = _digit_split_lowtohigh($int, $radix)
221 204 1029 if ($digit > $high_digit)
224 206 823 if ($digit < $high_digit)
233 46 809 if ($value < 1)
236 0 809 if (_is_infinite($value))
242 0 809 unless my(@digits) = _digit_split_lowtohigh($value, $radix)
249 281 959 if ($digit < $high_digit)
261 36 66 if ($value < 1)
264 0 66 if (_is_infinite($value))
309 204 35122 unless $n
311 141 16 if (ref $n and $n->isa('Math::BigInt') and my $coderef = $radix_to_coderef[$radix])