Branch Coverage

blib/lib/Perl/Lint/Policy/RegularExpressions/ProhibitEscapedMetacharacters.pm
Criterion Covered Total %
branch 19 20 95.0


line true false branch
19 50 297 if ($token_type == 187 or $token_type == 156) { }
2 295 elsif ($token_type == 145 or $token_type == 146) { }
20 2 48 if ($is_reg_quote)
28 43 5 if ($token_type == 187) { }
33 2 3 if ($maybe_regopt->{'type'} == 151)
40 48 0 if ($maybe_regopt)
41 40 8 if ($maybe_regopt->{'type'} == 144)
42 39 1 if ($maybe_regopt->{'data'} =~ /x/)
48 22 26 if (my(@backslashes) = $token->{'data'} =~ /(\\+)$regex_to_detect/g)
50 21 1 if (length($backslash) % 2 != 0)