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] || '' |