Branch Coverage

blib/lib/Math/NumSeq/SqrtDigits.pm
Criterion Covered Total %
branch 20 28 71.4


line true false branch
198 0 0 if ($radix == 10 and $sqrt >= 10 and $sqrt <= 99 and $sqrt != 50 and $sqrt != 75 and not $perfect_square{$sqrt})
327 76 0 if (defined $sqrt) { }
328 76 0 if ($sqrt =~ /^\s*(\d+)\s*$/) { }
343 8 68 if ($radix == 2) { }
359 28 48 if (my $method = $radix_to_stringize_method{$radix}) { }
364 16 12 if ($radix == 2 or $radix == 16) { }
6 6 elsif ($radix != 8) { }
374 48 0 if ($radix > 1)
379 24 24 if (my $i = $$self{'i'} - 1)
394 0 7311 if ($radix < 2)
398 76 7235 if ($$self{'i'} >= $$self{'i_extended'})
404 2467 4844 if (defined $$self{'string'}) { }
406 0 2467 if ($i > length $$self{'string'})
418 0 4844 if ($power == 0)