Branch Coverage

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


line true false branch
220 0 0 if ($radix == 10 and $sqrt >= 10 and $sqrt <= 99 and $sqrt != 50 and $sqrt != 75 and not $perfect_square{$sqrt})
349 76 0 if (defined $sqrt) { }
350 76 0 if ($sqrt =~ /^\s*(\d+)\s*$/) { }
365 8 68 if ($radix == 2) { }
381 28 48 if (my $method = $radix_to_stringize_method{$radix}) { }
386 16 12 if ($radix == 2 or $radix == 16) { }
6 6 elsif ($radix != 8) { }
396 48 0 if ($radix > 1)
401 24 24 if (my $i = $self->{'i'} - 1)
416 0 7311 if ($radix < 2)
420 76 7235 if ($self->{'i'} >= $self->{'i_extended'})
426 2467 4844 if (defined $self->{'string'}) { }
428 0 2467 if ($i > length $self->{'string'})
440 0 4844 if ($power == 0)