| blib/lib/Perl/Critic/Policy/ValuesAndExpressions/RequireInterpolationOfMetachars.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 21 | 22 | 95.4 |
| line | true | false | branch |
|---|---|---|---|
| 49 | 1 | 67 | if (@rcs_keywords) |
| 62 | 139 | 80 | unless _needs_interpolation($string) |
| 63 | 7 | 73 | if _looks_like_email_address($string) |
| 64 | 13 | 60 | if _looks_like_use_vars($elem) |
| 67 | 7 | 53 | if $rcs_regexes and _contains_rcs_variable($string, $rcs_regexes) |
| 127 | 61 | 19 | if index($string, "\@") < 0 |
| 128 | 3 | 16 | if $string =~ / \W \@ /msx |
| 129 | 6 | 10 | if $string =~ / \A \@ \w+ \b /msx |
| 140 | 7 | 6 | if $string =~ /$regex/msx |
| 153 | 59 | 180 | unless $statement = $statement->parent |
| 156 | 0 | 14 | if $statement->type ne "use" |