Branch Coverage

blib/lib/bigfloat.pl
Criterion Covered Total %
branch 55 62 88.7


line true false branch
53 883 31 if (/^([+-]?)(\d*)(\.(\d*))?([Ee]([+-]?\d+))?$/ and $2 ne '' || defined $4) { }
55 144 739 defined $4 ? :
56 801 82 $1 ? :
144 739 $x ne '' ? :
65 0 1292 if ($_ eq 'NaN') { }
69 70 1222 if (length $_ == 1) { }
72 164 1058 if s/(0+)$//
81 40 5 unless $_ eq "+0E+0"
101 3 85 if ($x eq 'NaN' or $y eq 'NaN') { }
113 6 124 if ($x eq 'NaN' or $y eq 'NaN') { }
118 0 124 if $xe < $ye
134 6 100 if ($x eq 'NaN' or $y eq 'NaN' or $y eq '+0E+0') { }
139 44 56 unless $scale
140 6 94 if length($xm) - 1 > $scale
141 1 99 if length($ym) - 1 > $scale
151 0 200 if ($q eq 'NaN' or $r eq 'NaN') { }
15 185 elsif ($rnd_mode eq 'trunc') { }
157 117 68 if ($cmp < 0 or $cmp == 0 and $rnd_mode eq 'zero' || $rnd_mode eq '-inf' && substr($q, 0, 1) eq '+' || $rnd_mode eq '+inf' && substr($q, 0, 1) eq '-' || $rnd_mode eq 'even' && $q =~ /[24680]$/ || $rnd_mode eq 'odd' && $q =~ /[13579]$/) { }
166 23 45 substr($q, 0, 1) eq '-' ? :
175 0 44 if ($x eq 'NaN' or $scale <= 0) { }
179 3 41 if (length($xm) - 1 <= $scale) { }
192 0 75 if ($x eq 'NaN') { }
196 10 65 if ($xe >= $scale) { }
200 6 59 if ($xe < 1) { }
6 53 elsif ($xe == 1) { }
222 3 19 if ($x eq 'NaN' or $y eq 'NaN') { }
225 15 4 unless ord $y <=> ord $x
237 4 9 if ($x eq 'NaN' or $x =~ /^-/) { }
1 8 elsif ($x eq '+0E+0') { }
243 8 0 unless $scale
244 0 8 if $scale < length($xm) - 1