blib/lib/Perl/Critic/Policy/ValuesAndExpressions/ProhibitInterpolationOfLiterals.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 5 | 14 | 35.7 |
line | true | false | branch |
---|---|---|---|
55 | 2 | 87 | if (defined $config_string) |
59 | 0 | 0 | unless / \A qq /msx |
62 | 0 | 0 | unless length $_ <= $MAX_SPECIFICATION_LENGTH |
77 | 0 | 1 | if _has_interpolation($elem) |
80 | 0 | 1 | if &any(sub { |
83 | 0 | 1 | if ($self->{'_allow_if_string_contains_single_quote'}) |
84 | 0 | 0 | if index($elem, $Perl::Critic::Policy::ValuesAndExpressions::ProhibitInterpolationOfLiterals::QUOTE) >= 0 |