| line |
true |
false |
branch |
|
28
|
0 |
13908 |
unless $base >= 1 and $base <= 36 |
|
32
|
0 |
13908 |
if exists $$flags{-'sep'} and not defined $$flags{-'sep'} |
|
35
|
134 |
13774 |
if $group =~ /^\s*(\d+)\s*,\s*(\d+)\s*$/ |
|
37
|
8660 |
5248 |
$places ? : |
|
39
|
678 |
13230 |
$sep ? : |
|
47
|
2 |
43 |
unless $base >= 1 and $base <= 36 |
|
50
|
13 |
30 |
if exists $_[1]{-'sep'} and not defined $_[1]{-'sep'} |
|
51
|
14 |
29 |
if ($base > 14 and $expon =~ /^[Ee]$/) |
|
52
|
57 |
72 |
if 1 == length $_ |
|
54
|
16 |
27 |
$sep ? : |
|
66
|
2 |
3719 |
unless $base >= 1 and $base <= 36 |
|
69
|
0 |
3719 |
if exists $_[1]{-'sep'} and not defined $_[1]{-'sep'} |
|
70
|
945 |
6493 |
if 1 == length $_ |
|
72
|
0 |
3719 |
$sep ? : |