| blib/lib/Perl/Critic/Policy/ValuesAndExpressions/RequireInterpolationOfMetachars.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 19 | 20 | 95.0 |
| line | true | false | branch |
|---|---|---|---|
| 50 | 1 | 67 | if (@rcs_keywords) |
| 63 | 139 | 80 | unless _needs_interpolation($string) |
| 64 | 7 | 73 | if _looks_like_email_address($string) |
| 65 | 13 | 60 | if _looks_like_use_vars($elem) |
| 68 | 7 | 53 | if $rcs_regexes and &any(sub { |
| 128 | 61 | 19 | if index($string, "\@") < 0 |
| 129 | 3 | 16 | if $string =~ / \W \@ /msx |
| 130 | 6 | 10 | if $string =~ / \A \@ \w+ \b /msx |
| 142 | 59 | 180 | unless $statement = $statement->parent |
| 145 | 0 | 14 | if $statement->type ne "use" |