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}) { } |