Branch Coverage

blib/lib/Math/NumSeq/UndulatingNumbers.pm
Criterion Covered Total %
branch 52 56 92.8


line true false branch
80 0 42 if ($radix < 2)
99 4889 38 if ($value = $self->{'value'} += $self->{'inc'})
105 293 4596 if (not $self->{'including_repdigits'} and $self->{'b'} == $self->{'a'})
114 552 4337 if ($self->{'b'} >= $radix)
125 102 450 if (++$self->{'a'} >= $radix)
160 12 5134 if ($i < 0)
166 2404 2730 $including_repdigits ? :
169 3200 1934 if ($i < $pair_step or _is_infinite($i))
177 1474 1726 if (not $including_repdigits and $i > $radix)
186 882 1052 $including_repdigits ? :
195 882 1052 if ($including_repdigits) { }
212 1689 445 unless $i_len-- >= 0
224 0 33839 if (_is_infinite($value))
227 1784 32055 if ($value != int $value)
233 31749 306 if ($value = int $value / $radix)
235 2708 29041 if (not $self->{'including_repdigits'} and $a == $b)
241 22389 4722 if ($value % $radix != $a)
244 2070 1066 if ($value % $radix != $b)
254 90 31259 if ($value <= 0)
257 0 31259 if (_is_infinite($value))
265 290 30969 unless @digits
278 15026 15943 $including_repdigits ? :
22179 8790 $including_repdigits || $a < $b ? :
15026 15943 $including_repdigits ? :
286 2414 28555 if (not $including_repdigits and $a == $b)
291 28555 0 if ($including_repdigits or $a != $b)
295 23749 5886 if ((my $c = pop @digits) != $a)
296 10157 13592 if ($c < $a)