| line |
true |
false |
branch |
|
26
|
0 |
33 |
unless @a |
|
27
|
0 |
33 |
wantarray ? : |
|
29
|
0 |
33 |
if $_ < 0 |
|
30
|
0 |
33 |
if $_ > '999999999999999' |
|
31
|
0 |
33 |
if ($_ > 999999999999) { } |
|
|
2 |
31 |
elsif ($_ > 999999) { } |
|
|
1 |
30 |
elsif ($_ > 9999) { } |
|
36
|
0 |
0 |
if ($b and $mil =~ /^0{9}/u) |
|
39
|
0 |
0 |
$b ? : |
|
40
|
0 |
0 |
$bil == 1 ? : |
|
47
|
0 |
2 |
$b ? : |
|
48
|
0 |
2 |
if ($uni =~ /^000\d{0,2}[1-9]\d{0,2}|0\d?[1-9]\d?000|[1-9]0{5}/u) |
|
51
|
1 |
1 |
$mil == 1 ? : |
|
121
|
0 |
30 |
wantarray ? : |
|
131
|
0 |
0 |
if not defined $number && $number =~ /\A\d+\z/msux or $number < 1 or $number > 999999999 |
|
151
|
0 |
0 |
if exists $irregular{$number} |