| blib/lib/Perl/Critic/Policy/TooMuchCode/ProhibitDuplicateLiteral.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 22 | 90.9 |
| line | true | false | branch |
|---|---|---|---|
| 35 | 3 | 19 | unless $parser->find("PPI::Token::Number") |
| 38 | 18 | 4 | unless $parser->find("PPI::Token::Quote") |
| 49 | 304 | 0 | if defined $_ |
| 59 | 2 | 11 | unless $doc->find("PPI::Token::Quote") |
| 60 | 0 | 22 | if $el->can("interpolations") and $el->interpolations |
| 63 | 10 | 12 | if $self->{'_whitelist'}{$val} |
| 65 | 3 | 9 | if ($firstSeen{"$val"}) { } |
| 76 | 5 | 8 | unless $doc->find("PPI::Token::Number") |
| 78 | 5 | 16 | if $self->{'_whitelist_numbers'}{$val} |
| 79 | 6 | 10 | if $self->{'_whitelist'}{$val} |
| 80 | 4 | 6 | if ($firstSeen{$val}) { } |