| blib/lib/Perl/Critic/Policy/Variables/ProhibitLocalVars.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 8 | 87.5 |
| line | true | false | branch |
|---|---|---|---|
| 30 | 3 | 99 | if ($elem->type eq "local" and not _all_global_vars($elem)) |
| 42 | 2 | 16 | if $variable_name =~ /$PACKAGE_RX/ |
| 44 | 0 | 16 | if $variable_name eq "\$TODO" |
| 45 | 3 | 13 | unless is_perl_global($variable_name) |