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