| line |
true |
false |
branch |
|
47
|
3 |
107 |
unless defined $number |
|
48
|
2 |
105 |
if $number eq 'NaN' |
|
50
|
3 |
102 |
if ($number =~ /^ ( [-+] )? inf $/xi) { } |
|
|
96 |
6 |
elsif ($number =~ /^ $Lingua::EO::Numbers::RE{'num'}{'real'}{join $;, -'radix', '[,.]'}{-'keep'} $/x) { } |
|
52
|
2 |
1 |
$1 ? : |
|
57
|
0 |
96 |
if length $int > $MAX_INT_DIGITS |
|
63
|
16 |
80 |
if (defined $frac and $frac ne $EMPTY_STR) |
|
82
|
0 |
33 |
unless defined $name |
|
102
|
54 |
106 |
if $group == 0 and $int != 0 |
|
107
|
10 |
34 |
if ($type and $type ne $GROUPS[1] and $group > 1) |
|
113
|
2 |
104 |
if ($group == 1 and $type eq $GROUPS[1]) { } |
|
|
0 |
104 |
elsif (length $group > 3) { } |
|
120
|
44 |
62 |
$type ? : |
|
140
|
8 |
152 |
if (@groups == 4) |
|
152
|
104 |
0 |
defined $int ? : |
|
159
|
38 |
148 |
if $digit == 0 and $int != 0 |
|
162
|
26 |
122 |
$digit == 1 && $digit_count ? : |