| line |
true |
false |
branch |
|
13
|
31 |
36 |
length $ref && $ref =~ /^([-\+][1-9])?\d*$/ ? : |
|
|
67 |
30 |
unless ref $ref |
|
17
|
11 |
19 |
if ref $ref eq 'ARRAY' |
|
22
|
17 |
2 |
if ref $ref eq 'HASH' |
|
32
|
54 |
50 |
if ($string =~ s/^(0+|[1-9]\d*)://) { } |
|
|
20 |
30 |
elsif ($string =~ s/^i([-\+]?\d+)e//) { } |
|
|
6 |
24 |
elsif ($string =~ s/^l(.*)//s) { } |
|
|
13 |
11 |
elsif ($string =~ s/^d(.*)//s) { } |
|
34
|
2 |
52 |
if $size =~ /^0+$/ |
|
36
|
1 |
53 |
if length $return < $size |
|
37
|
48 |
5 |
$_[0] ? : |
|
41
|
2 |
18 |
if $int =~ /^-0/ or $int =~ /^0\d+/ |
|
42
|
14 |
6 |
$_[0] ? : |
|
50
|
3 |
3 |
$_[0] ? : |
|
57
|
27 |
0 |
if $leftover |
|
58
|
27 |
0 |
if defined $key |
|
60
|
5 |
8 |
$_[0] ? : |