Branch Coverage

blib/lib/Perl/Lint/Policy/RegularExpressions/ProhibitFixedStringMatches.pm
Criterion Covered Total %
branch 31 38 81.5


line true false branch
39 65 323 if ($token_type == 187 or $token_type == 156) { }
10 313 elsif ($token_type == 145 or $token_type == 146) { }
40 10 55 if ($is_reg_quoted)
46 46 9 if ($token_type == 187) { }
51 0 9 if ($$maybe_regopt{'type'} == 151)
57 55 0 if ($maybe_regopt)
58 5 50 if ($$maybe_regopt{'type'} == 144 and $$maybe_regopt{'data'} =~ /m/)
67 0 55 if ($@)
73 0 55 if (scalar @regexp_tokens < 2)
80 55 0 if (defined $first_token_type_id and defined $last_token_type_id)
81 5 50 if ($is_with_m_opt)
82 4 1 if ($first_token_type_id == $beginning_of_line_id or $last_token_type_id == $end_of_line_id)
87 39 0 if ($first_token_type_id == $beginning_of_line_id || $first_token_type_id == $escaped_beginning_of_line_id and $last_token_type_id == $end_of_line_id || $last_token_type_id == $escaped_end_of_line_id)
95 34 474 if ($type_id == $alternation_id or $type_id == $rparen_id)
102 15 459 if ($type_id == $lparen_id)
104 8 7 if (defined $next_regexp_token and $$next_regexp_token{'type'}{'id'} == $question_id)
106 8 0 if (defined $next_regexp_token and $$next_regexp_token{'type'}{'id'} == $colon_id)
115 14 445 if ($type_id != $character_id and $type_id != $escaped_character_id)
121 7 32 if (@not_character_tokens)