| line |
true |
false |
branch |
|
84
|
8 |
9 |
unless defined $opts |
|
93
|
0 |
17 |
if ($opts->{'name'}) |
|
95
|
0 |
0 |
$intpart eq $NUMBER_NAMES{'1'} ? : |
|
|
0 |
0 |
!ref($opts->{'name'}) ? : |
|
100
|
0 |
17 |
if ($parsed->{'fracpart'} or $opts->{'decimal'}) |
|
102
|
0 |
0 |
if ($opts->{'decimal'}) |
|
103
|
0 |
0 |
if (length $parsed->{'fracpart'} < $opts->{'decimal'}) |
|
109
|
0 |
0 |
if ($opts->{'decmode'} eq 'fract') { } |
|
110
|
0 |
0 |
if ($fractpart eq $NUMBER_NAMES{'1'}) { } |
|
138
|
5 |
17 |
if ($hundreds == 1) { } |
|
|
8 |
9 |
elsif ($hundreds > 1) { } |
|
144
|
2 |
20 |
if ($tens == 0) { } |
|
|
6 |
14 |
elsif ($tens <= 20) { } |
|
155
|
7 |
7 |
if $units == 1 or $units == 8 |
|
157
|
14 |
0 |
if ($units >= 1) |
|
170
|
1 |
16 |
unless $number and $number =~ /[1-9]/ |
|
171
|
2 |
14 |
if "$number" eq 1 |
|
172
|
9 |
5 |
if (my $r = length($number) % 3) |
|
177
|
0 |
14 |
if (@blocks > 4) |
|
183
|
2 |
12 |
if ($blocks[0] == 1) { } |
|
|
12 |
0 |
elsif ($blocks[0] > 1) { } |
|
191
|
0 |
14 |
if ($#blocks >= 1 and $blocks[1] == 1) { } |
|
|
6 |
16 |
elsif ($#blocks >= 1 and $blocks[1] > 1) { } |
|
199
|
0 |
4 |
unless $blocks[$pos] |
|
201
|
0 |
4 |
if ($blocks[$pos] == 1) { } |
|
272
|
0 |
0 |
UNIVERSAL::isa($num, __PACKAGE__) ? : |
|
284
|
0 |
0 |
UNIVERSAL::isa($num, __PACKAGE__) ? : |
|
295
|
0 |
0 |
UNIVERSAL::isa($num, __PACKAGE__) ? : |
|
298
|
0 |
0 |
$inverted ? : |
|
309
|
0 |
0 |
UNIVERSAL::isa($num, __PACKAGE__) ? : |
|
312
|
0 |
0 |
$inverted ? : |