Branch Coverage

lib/Math/SigFigs.pm
Criterion Covered Total %
branch 88 88 100.0


line true false branch
47 74 4 if (defined $n1in)
50 6 72 unless defined $n1
52 70 2 if (defined $n2in)
55 4 68 unless defined $n2
57 21 47 if ($sub)
58 8 13 if ($n2 < 0) { }
12 1 elsif ($n2 > 0) { }
67 1 67 if $n1in eq '0'
68 1 66 if $n2in eq '0'
70 8 58 $lsp1 > $lsp2 ? :
95 18 4 if (defined $n1)
98 4 18 unless defined $n1
100 16 2 if (defined $n2)
103 3 15 if not defined $n2 or $div and $n2 == 0
106 4 11 $sig1 < $sig2 ? :
107 6 9 $div ? :
113 3 171 if not $n =~ /^\d+$/ or $n == 0
117 1 170 unless defined $N
118 2 168 if $N == 0 and $n == 1
120 25 143 if $sig eq $n
127 98 45 if ($int > 0) { }
38 7 elsif ($dec ne '' and $dec > 0) { }
141 16 127 if ($n < $sig and substr($num, $n + 2, 1) eq '5')
151 38 105 if ($tmp >= 1)
163 1 13 unless defined $N
181 15 124 if ($lsp == 0)
185 33 91 if ($lsp > 0)
186 1 32 $lsp > length $int ? :
194 1 90 if -$lsp > length $dec
214 1 723 unless defined $n
218 2 721 if $n eq ''
220 244 477 if ($n =~ s/[eE]([+-]*\d+)$//) { }
228 132 589 if ($n =~ /^\d+$/) { }
233 356 elsif ($n =~ /^0*\.(\d+)$/) { }
348 8 elsif ($n =~ /^0*(\d+)\.(\d*)$/) { }
255 139 574 if ($exp > 0) { }
66 508 elsif ($exp < 0) { }
256 95 44 if ($exp >= length $dec) { }
265 9 130 unless $int
268 27 39 if (-$exp < length $int) { }
284 248 465 if ($dec eq '') { }
286 34 81 if $lsp == 0 and $int =~ /0$/ and $int ne '0'
288 145 320 if $int eq ''
291 73 640 if $num == 0 or $s eq '+'