| blib/lib/Lingua/TLH/Numbers.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 16 | 87.5 |
| line | true | false | branch |
|---|---|---|---|
| 34 | 1 | 83 | unless defined $number |
| 37 | 4 | 79 | if $number eq 'NaN' or $number =~ /^ [-+]? inf $/xi |
| 39 | 6 | 73 | unless $number =~ /^ $Lingua::TLH::Numbers::RE{'num'}{'real'}{-'keep'} $/x |
| 43 | 7 | 66 | if $sign eq $MINUS |
| 45 | 0 | 66 | if length $int > $MAX_INT_DIGITS |
| 51 | 106 | 92 | if $digit == 0 and $int != 0 |
| 60 | 12 | 54 | if (defined $frac and $frac ne $EMPTY_STR) |
| 72 | 0 | 23 | unless defined $name |