| blib/lib/Perl/Lint/Policy/ValuesAndExpressions/RequireInterpolationOfMetachars.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 12 | 13 | 92.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 64 | 63 | 4 | 10 | index($token_data, '@') >= 0 and not $token_data =~ / \W \@ /msx |
| 67 | 2 | 8 | index($token_data, '@') >= 0 and not $token_data =~ / \W \@ /msx and not $token_data =~ / \A \@ \w+ \b /msx | |
| 6 | 3 | 5 | index($token_data, '@') >= 0 and not $token_data =~ / \W \@ /msx and not $token_data =~ / \A \@ \w+ \b /msx and $token_data =~ /$Email::Address::addr_spec/ |
| line | l | !l | condition |
|---|---|---|---|
| 19 | 1 | 0 | $this_policies_arg->{'rcs_keywords'} || '' |
| 74 | 32 | 40 | $captures[$i] || '' |