Branch Coverage

blib/lib/Lingua/FR/Numbers.pm
Criterion Covered Total %
branch 58 62 93.5


line true false branch
73 2 207 unless ($number =~ /^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/)
78 1 206 if ($number > 1e+75)
83 2 204 if $number == 0
86 6 198 if abs $number != $number
91 9 195 if ($number != int $number)
100 5 4 if ($decimal =~ s/^(0+([1-9][0-9]*))$/$2/) { }
102 0 5 unless $decimal_power
106 3 2 if $decimal > 1
134 184 256 if $blocks[$_] == 0
148 86 170 if ($hundred)
152 58 28 unless $hundred == 1
159 3 10 if $hundred > 1 and not $teens and not $units and $_ == $#blocks
169 73 127 if $units and not $teens and not $number == 1 && $power == 1000
176 18 238 if ($teens == 8) { }
50 188 elsif ($teens == 7 or $teens == 9) { }
79 109 elsif ($teens) { }
179 13 5 $units ? :
185 4 46 if ($teens == 7 and $units == 11) { }
200 44 35 if ($teens == 1) { }
5 30 elsif ($units == 1 or $units == 11) { }
3 27 elsif ($units == 0) { }
216 220 36 if $fr_decimal
219 122 134 if ($power >= 1000)
222 108 14 if (exists $Lingua::FR::Numbers::NUMBER_NAMES{$power}) { }
226 39 69 if $number > 1 and $power >= 1000000
244 0 14 unless (exists $Lingua::FR::Numbers::NUMBER_NAMES{$pow_diff})
248 10 4 if $number > 1
267 3 22 unless ($number > 0)
271 1 21 if $number == 1
276 5 13 if ($last_digit != 1 and exists $Lingua::FR::Numbers::ORDINALS{$last_digit})
297 0 0 if ($_[0])