line |
true |
false |
branch |
17
|
0 |
4 |
unless $class eq 'Eval::Safe' |
20
|
1 |
3 |
if (@unknown_options) |
25
|
0 |
3 |
if ($options{'package'} and not $options{'force_package'}) |
27
|
0 |
0 |
if eval "%$options{'package'}::" |
29
|
1 |
2 |
if ($options{'safe'} // !1) { } |
55
|
0 |
0 |
unless eval "%${package}::" |
57
|
0 |
0 |
unless $v =~ /^([&*\$%\@])(\w+)$/u |
70
|
0 |
0 |
unless $var =~ /^([&*\$%\@])(\w+)$/u |
93
|
6 |
0 |
if (not defined $reftype) { } |
|
0 |
0 |
elsif ($reftype eq 'SCALAR') { } |
|
0 |
0 |
elsif ($reftype eq 'ARRAY') { } |
|
0 |
0 |
elsif ($reftype eq 'HASH') { } |
94
|
0 |
6 |
if ($arg) { } |
127
|
0 |
0 |
unless $reftype |
128
|
0 |
0 |
if ++$seen_refs{&refaddr($item)} > 1 |
129
|
0 |
0 |
if ($reftype eq 'ARRAY') { } |
|
0 |
0 |
elsif ($reftype eq 'HASH') { } |
|
0 |
0 |
elsif ($reftype eq 'CODE') { } |
140
|
0 |
0 |
if (defined wantarray) |
141
|
0 |
0 |
wantarray ? : |
153
|
0 |
0 |
if $p eq '' |
154
|
0 |
0 |
unless $p =~ /^\w+(::\w+)*$/u |