| blib/lib/Perl/Critic/Policy/ValuesAndExpressions/RequireInterpolationOfMetachars.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 2 | 20 | 10.0 |
| line | true | false | branch |
|---|---|---|---|
| 50 | 0 | 46 | if (@rcs_keywords) |
| 63 | 71 | 0 | unless _needs_interpolation($string) |
| 64 | 0 | 0 | if _looks_like_email_address($string) |
| 65 | 0 | 0 | if _looks_like_use_vars($elem) |
| 68 | 0 | 0 | if $rcs_regexes and &any(sub { |
| 127 | 0 | 0 | if index($string, "\@") < 0 |
| 128 | 0 | 0 | if $string =~ / \W \@ /msx |
| 129 | 0 | 0 | if $string =~ / \A \@ \w+ \b /msx |
| 141 | 0 | 0 | unless $statement = $statement->parent |
| 144 | 0 | 0 | if $statement->type ne "use" |