| line |
true |
false |
branch |
|
33
|
2 |
0 |
if not defined &Lingua::TR::Numbers::DEBUG |
|
67
|
0 |
1 |
unless defined $x and length $x |
|
70
|
0 |
1 |
unless $x |
|
73
|
1 |
0 |
if ($x =~ s/(\w+)\z//msx) { } |
|
79
|
0 |
2 |
unless $l |
|
80
|
1 |
1 |
if ($l =~ /$RE_VOWEL/) |
|
91
|
0 |
1 |
unless ($ok) |
|
108
|
2 |
76 |
unless defined $x and length $x |
|
110
|
0 |
76 |
if $x eq 'NaN' |
|
111
|
0 |
76 |
if $x =~ / \A \+ inf(?:inity)? \z /imsx |
|
112
|
0 |
76 |
if $x =~ / \A \- inf(?:inity)? \z /imsx |
|
113
|
0 |
76 |
if $x =~ / \A inf(?:inity)? \z /imsx |
|
114
|
21 |
55 |
if exists $D{$x} |
|
117
|
3 |
52 |
if defined $e |
|
124
|
11 |
41 |
if ($x =~ s/\A([-+])//msx) |
|
129
|
38 |
14 |
if ($x =~ / \A \d+ \z/msx) { } |
|
|
7 |
7 |
elsif ($x =~ / \A (\d+)[.](\d+) \z/msx) { } |
|
|
3 |
4 |
elsif ($x =~ / \A [.](\d+) \z/msx) { } |
|
142
|
66 |
37 |
if defined $_ |
|
151
|
4 |
0 |
$x eq '+' ? : |
|
|
7 |
4 |
$x eq '-' ? : |
|
|
37 |
11 |
!(defined $x && length $x) ? : |
|
160
|
38 |
10 |
unless defined $x and length $x |
|
170
|
0 |
65 |
unless defined $x and length $x and $x =~ /\A\d+\z/msx |
|
171
|
18 |
47 |
if defined $D{$x} |
|
173
|
31 |
16 |
if ($x =~ /\A(.)(.)\z/msx) { } |
|
|
9 |
7 |
elsif ($x =~ /\A(.)(..)\z/msx) { } |
|
179
|
6 |
3 |
$1 == 1 ? : |
|
181
|
1 |
8 |
if $rest eq '00' |
|
191
|
0 |
7 |
unless defined $x and length $x and $x =~ /\A\d+\z/msx |
|
198
|
12 |
4 |
if $num |
|
201
|
0 |
7 |
unless @chunks |
|
206
|
4 |
3 |
if $chunks[-1][1] == 0 and $chunks[-1][0] < 100 |
|
213
|
0 |
7 |
if $and and @chunks > 1 |
|
214
|
5 |
2 |
if @chunks == 2 |
|
221
|
0 |
7 |
unless @{$chunks;} |
|
224
|
12 |
0 |
if $c->[0] |
|
233
|
5 |
7 |
unless $multnum |
|
235
|
7 |
0 |
if $MULT{$multnum} |
|
249
|
3 |
52 |
if ($x =~ /
\A
(
[-+]? # leading sign
(?:
[\d,]+ | [\d,]*\.\d+ # number
)
)
[eE]
(-?\d+) # mantissa, has to be an integer
\z
/msx) { } |
|
263
|
0 |
0 |
unless print @args |