| line |
true |
false |
branch |
|
51
|
0 |
190 |
if ($#_ > 1) |
|
55
|
0 |
190 |
unless ($number =~ /^\d+$/ or $number =~ /^[\x{1369}-\x{137c}]+$/) |
|
76
|
0 |
1 |
if @_ |
|
88
|
9 |
86 |
if length $_[0]{'number'} == 1 |
|
107
|
86 |
0 |
if ($] >= 5.012) { } |
|
185
|
4 |
91 |
unless $n |
|
188
|
50 |
41 |
unless ($n % 2) |
|
218
|
120 |
196 |
if $aTen |
|
219
|
185 |
131 |
if $aOne |
|
233
|
90 |
46 |
$eTen ne '' || $eOne ne '' ? : |
|
|
136 |
89 |
$pos ? : |
|
|
225 |
91 |
$place ? : |
|
251
|
72 |
244 |
if ($eOne eq "\x{1369}" and $eTen eq "") |
|
252
|
29 |
43 |
if ($sep eq "\x{137b}") { } |
|
|
23 |
20 |
elsif ($place + 1 == $n) { } |
|
285
|
95 |
95 |
if @_ |
|
287
|
95 |
95 |
$self->number =~ /^[0-9]+$/ ? : |
|
298
|
190 |
190 |
if @_ |