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