| line |
true |
false |
branch |
|
69
|
0 |
1 |
unless defined $x and length $x |
|
72
|
0 |
1 |
unless $x |
|
75
|
1 |
0 |
if ($x =~ s/(\w+)\z//msx) { } |
|
81
|
0 |
2 |
unless $l |
|
82
|
1 |
1 |
if ($l =~ /$RE_VOWEL/) |
|
93
|
0 |
1 |
unless ($ok) |
|
110
|
2 |
76 |
unless defined $x and length $x |
|
112
|
0 |
76 |
if $x eq 'NaN' |
|
113
|
0 |
76 |
if $x =~ / \A \+ inf(?:inity)? \z /imsx |
|
114
|
0 |
76 |
if $x =~ / \A \- inf(?:inity)? \z /imsx |
|
115
|
0 |
76 |
if $x =~ / \A inf(?:inity)? \z /imsx |
|
116
|
21 |
55 |
if exists $D{$x} |
|
119
|
3 |
52 |
if defined $e |
|
126
|
11 |
41 |
if ($x =~ s/\A([-+])//msx) |
|
131
|
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) { } |
|
144
|
66 |
37 |
if defined $_ |
|
153
|
4 |
0 |
$x eq '+' ? : |
|
|
7 |
4 |
$x eq '-' ? : |
|
|
37 |
11 |
!(defined $x && length $x) ? : |
|
162
|
38 |
10 |
unless defined $x and length $x |
|
172
|
0 |
65 |
unless defined $x and length $x and $x =~ /\A\d+\z/msx |
|
173
|
18 |
47 |
if defined $D{$x} |
|
175
|
31 |
16 |
if ($x =~ /\A(.)(.)\z/msx) { } |
|
|
9 |
7 |
elsif ($x =~ /\A(.)(..)\z/msx) { } |
|
181
|
6 |
3 |
$1 == 1 ? : |
|
183
|
1 |
8 |
if $rest eq '00' |
|
193
|
0 |
7 |
unless defined $x and length $x and $x =~ /\A\d+\z/msx |
|
200
|
12 |
4 |
if $num |
|
203
|
0 |
7 |
unless @chunks |
|
208
|
4 |
3 |
if $chunks[-1][1] == 0 and $chunks[-1][0] < 100 |
|
215
|
0 |
7 |
if $and and @chunks > 1 |
|
216
|
5 |
2 |
if @chunks == 2 |
|
223
|
0 |
7 |
unless @{$chunks;} |
|
226
|
12 |
0 |
if $c->[0] |
|
235
|
5 |
7 |
unless $multnum |
|
238
|
7 |
0 |
if ($MULT{$multnum}) |
|
239
|
0 |
7 |
$multnum == 1 && $raw == 1 ? : |
|
254
|
3 |
52 |
if ($x =~ /
\A
(
[-+]? # leading sign
(?:
[\d,]+ | [\d,]*\.\d+ # number
)
)
[eE]
(-?\d+) # mantissa, has to be an integer
\z
/msx) { } |
|
268
|
0 |
0 |
unless print @args |