| line |
true |
false |
branch |
|
83
|
8 |
9 |
unless defined $opts |
|
92
|
0 |
17 |
if ($opts->{'name'}) |
|
94
|
0 |
0 |
$intpart eq $NUMBER_NAMES{'1'} ? : |
|
|
0 |
0 |
!ref($opts->{'name'}) ? : |
|
99
|
0 |
17 |
if ($parsed->{'fracpart'} or $opts->{'decimal'}) |
|
101
|
0 |
0 |
if ($opts->{'decimal'}) |
|
102
|
0 |
0 |
if (length $parsed->{'fracpart'} < $opts->{'decimal'}) |
|
108
|
0 |
0 |
if ($opts->{'decmode'} eq 'fract') { } |
|
109
|
0 |
0 |
if ($fractpart eq $NUMBER_NAMES{'1'}) { } |
|
137
|
5 |
17 |
if ($hundreds == 1) { } |
|
|
8 |
9 |
elsif ($hundreds > 1) { } |
|
143
|
2 |
20 |
if ($tens == 0) { } |
|
|
6 |
14 |
elsif ($tens <= 20) { } |
|
154
|
7 |
7 |
if $units == 1 or $units == 8 |
|
156
|
14 |
0 |
if ($units >= 1) |
|
169
|
1 |
16 |
unless $number and $number =~ /[1-9]/u |
|
170
|
2 |
14 |
if "$number" eq 1 |
|
171
|
9 |
5 |
if (my $r = length($number) % 3) |
|
176
|
0 |
14 |
if (@blocks > 4) |
|
182
|
2 |
12 |
if ($blocks[0] == 1) { } |
|
|
12 |
0 |
elsif ($blocks[0] > 1) { } |
|
190
|
0 |
14 |
if ($#blocks >= 1 and $blocks[1] == 1) { } |
|
|
6 |
16 |
elsif ($#blocks >= 1 and $blocks[1] > 1) { } |
|
198
|
0 |
4 |
unless $blocks[$pos] |
|
200
|
0 |
4 |
if ($blocks[$pos] == 1) { } |
|
271
|
0 |
0 |
UNIVERSAL::isa($num, __PACKAGE__) ? : |
|
283
|
0 |
0 |
UNIVERSAL::isa($num, __PACKAGE__) ? : |
|
294
|
0 |
0 |
UNIVERSAL::isa($num, __PACKAGE__) ? : |
|
297
|
0 |
0 |
$inverted ? : |
|
308
|
0 |
0 |
UNIVERSAL::isa($num, __PACKAGE__) ? : |
|
311
|
0 |
0 |
$inverted ? : |