| line |
true |
false |
branch |
|
19
|
0 |
12 |
if ("$]" < 5.008007) { } |
|
27
|
0 |
12 |
unless eval "\nsub stash_for (\$) {\n $provider->new(\$_[0]);\n}\n\n1;\n\n" |
|
145
|
1006 |
1001 |
if ($args[0] =~ /^\-/) { } |
|
156
|
1002 |
15 |
exists $args{-'cleanee'} ? : |
|
157
|
1001 |
16 |
if ($is_explicit) { } |
|
173
|
2 |
2 |
ref $args{-'except'} eq 'ARRAY' ? : |
|
|
4 |
12 |
$args{-'except'} ? : |
|
178
|
5 |
74 |
if $except{$f} |
|
179
|
0 |
74 |
unless $stash->has_symbol("&$f") |
|
184
|
15 |
1 |
unless ($store->{'handler_is_installed'}) |
|
199
|
0 |
1 |
exists $args{-'cleanee'} ? : |
|
206
|
1 |
1 |
if $store->{'remove'}{$f} or $store->{'exclude'}{$f} |
|
217
|
15 |
2 |
unless $stash->has_symbol($var) |