| blib/lib/namespace/clean.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 22 | 90.9 |
| line | true | false | branch |
|---|---|---|---|
| 101 | 1006 | 1001 | if ($args[0] =~ /^\-/) { } |
| 112 | 1002 | 14 | exists $args{-'cleanee'} ? : |
| 113 | 1001 | 15 | if ($is_explicit) { } |
| 129 | 2 | 2 | ref $args{-'except'} eq 'ARRAY' ? : |
| 4 | 11 | $args{-'except'} ? : | |
| 134 | 5 | 72 | if $except{$f} |
| 135 | 0 | 72 | unless $stash->has_symbol("&$f") |
| 140 | 14 | 1 | unless ($store->{'handler_is_installed'}) |
| 155 | 0 | 1 | exists $args{-'cleanee'} ? : |
| 162 | 1 | 1 | if $store->{'remove'}{$f} or $store->{'exclude'}{$f} |
| 173 | 14 | 2 | unless $stash->has_symbol($var) |