blib/lib/Perl/Critic/Policy/TooMuchCode/ProhibitDuplicateLiteral.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 17 | 18 | 94.4 |
line | true | false | branch |
---|---|---|---|
29 | 3 | 19 | unless $parser->find("PPI::Token::Number") |
32 | 18 | 4 | unless $parser->find("PPI::Token::Quote") |
45 | 2 | 11 | unless $doc->find("PPI::Token::Quote") |
46 | 0 | 22 | if $el->can("interpolations") and $el->interpolations |
49 | 10 | 12 | if $self->{'_allowlist'}{$val} |
51 | 3 | 9 | if ($firstSeen{"$val"}) { } |
62 | 5 | 8 | unless $doc->find("PPI::Token::Number") |
64 | 11 | 10 | if $self->{'_allowlist'}{$val} |
65 | 4 | 6 | if ($firstSeen{$val}) { } |