| line |
true |
false |
branch |
|
17
|
1 |
1 |
do {
${$_[1];} =~ s/^(.*)$/$_[0]->(${$_[1];});/e;
$_[1]
} && $destruct ? : |
|
|
7 |
2 |
${$_[1];} =~ /^(\d+(?:\.\d+)?)$/ ? : |
|
18
|
1 |
12 |
unless defined $_[1] |
|
|
1 |
11 |
$_[1] =~ /^((?!0\d)^\d+(?:\.\d+)?)$/ ? : |
|
24
|
4 |
3 |
unless my(@export) = @_ |
|
25
|
3 |
0 |
ref $export[scalar @export - 1] ? : |
|
26
|
3 |
0 |
ref $opts eq 'HASH' ? : |
|
27
|
3 |
0 |
if scalar @export == 1 and $export[0] eq "all" |
|
45
|
13 |
16 |
unless $ref |
|
46
|
12 |
4 |
$destruct ? : |
|
52
|
1 |
0 |
$_[1] eq 'HASH' ? : |
|
|
1 |
1 |
$_[1] eq 'ARRAY' ? : |
|
|
2 |
2 |
do {
$_[3]{$addr} = 1
} && $_[1] eq 'SCALAR' ? : |
|
|
0 |
4 |
defined $_[3]{$addr} ? : |
|
56
|
2 |
0 |
$_[1] eq 'HASH' ? : |
|
|
3 |
2 |
$_[1] eq 'ARRAY' ? : |
|
|
7 |
5 |
$_[1] eq 'SCALAR' ? : |