Branch Coverage

blib/lib/Math/NumSeq/PythagoreanHypots.pm
Criterion Covered Total %
branch 20 22 90.9


line true false branch
93 24 4 if (defined(my $value = shift @$array))
106 2 2 if ($self->{'pythagorean_type'} eq 'primitive') { }
125 47 2057 if ($value < 5 or _is_infinite($value) or $value != int $value)
134 1024 1033 unless ($value % 2)
136 1014 10 if ($pythagorean_type ne 'all')
144 0 1043 unless ($value <= 4294967295)
152 698 4242 if ($value % $p == 0)
153 193 505 if (($p & 3) == 1) { }
155 0 193 if ($pythagorean_type eq 'all')
160 501 4 if ($pythagorean_type eq 'primitive')
175 520 22 if ($pythagorean_type eq 'primitive') { }