| 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 |