| line |
true |
false |
branch |
|
19
|
0 |
13 |
if ("$]" < 5.008007) { } |
|
27
|
0 |
13 |
unless eval "\nsub stash_for (\$) {\n $provider->new(\$_[0]);\n}\n\n1;\n\n" |
|
145
|
1006 |
1001 |
if ($args[0] =~ /^\-/) { } |
|
156
|
1002 |
24 |
exists $args{-'cleanee'} ? : |
|
157
|
1001 |
25 |
if ($is_explicit) { } |
|
173
|
2 |
2 |
ref $args{-'except'} eq 'ARRAY' ? : |
|
|
4 |
21 |
$args{-'except'} ? : |
|
178
|
5 |
91 |
if $except{$f} |
|
179
|
0 |
91 |
unless $stash->has_symbol("&$f") |
|
195
|
0 |
4 |
exists $args{-'cleanee'} ? : |
|
202
|
5 |
4 |
if $store->{'remove'}{$f} or $store->{'exclude'}{$f} |
|
213
|
18 |
11 |
unless $stash->has_symbol($var) |