Branch Coverage

blib/lib/Math/FixedPoint.pm
Criterion Covered Total %
branch 63 64 98.4


line true false branch
26 83 41 if (defined $num) { }
42 14 93 if (int $str eq $str) { }
93 0 elsif ($str =~ /^ ([-+]?)(\d*) (?:\.(\d+))? (?:[eE]([-+]?\d+))? $/x) { }
44 1 13 $str < 0 ? :
47 10 4 defined $wanted_radix ? :
54 24 69 defined $1 && $1 eq '-' ? :
62 3 90 $radix < 0 ? :
67 3 90 if $radix < 0
70 16 77 defined $wanted_radix ? :
83 10 22 if $radix == $wanted_radix
85 8 14 if ($wanted_radix >= $radix) { }
94 9 5 if $reminder > 5 * 10 ** (-1 * $places - 1)
119 10 2 if (ref $num ne 'Math::FixedPoint') { }
132 2 10 $signed_result < 0 ? :
147 6 2 if (ref $num ne 'Math::FixedPoint') { }
156 2 6 $reverse ? :
157 2 6 $reverse ? :
163 6 2 $signed_result < 0 ? :
179 2 2 if (ref $num ne 'Math::FixedPoint') { }
208 5 4 if (ref $num ne 'Math::FixedPoint') { }
209 1 4 $num < 0 ? :
218 4 5 if $another_value == 0
220 1 4 $reverse ? :
223 1 4 $reverse ? :
242 5 24 $$self[0] < 0 ? :
246 10 19 if $radix == 0
249 5 14 if $length <= $radix
264 1 6 if ($radix == 0) { }
272 2 4 $new_value == 0 ? :
301 1 4 if (ref $num ne 'Math::FixedPoint') { }
309 1 4 if $radix2 > $radix1
310 2 3 if $radix1 > $radix2