| blib/lib/Perl/Critic/Policy/Variables/NameReuse.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 20 | 55.0 |
| line | true | false | branch |
|---|---|---|---|
| 26 | 0 | 32 | if $symbol->isa('PPI::Token::Magic') |
| 28 | 0 | 32 | if $actual =~ /::/ |
| 29 | 0 | 32 | unless (my $name = $actual) =~ s/^[\$\@\%]// |
| 30 | 0 | 32 | if $name eq 'INC' or $name eq 'ARGV' |
| 36 | 0 | 3 | if $symbol =~ /::/ |
| 37 | 0 | 3 | unless (my $name = $symbol) =~ s/^\$\#// |
| 38 | 0 | 3 | if $name =~ /^\W$/ |
| 39 | 0 | 3 | if $name eq 'INC' or $name eq 'ARGV' |
| 46 | 8 | 7 | if (keys %$by_actual > 1) |
| 48 | 0 | 3 | unless ($by_actual->{$a}->logical_line_number // 0) <=> ($by_actual->{$b}->logical_line_number // 0) |