Branch Coverage

blib/lib/Perl/Critic/Policy/RegularExpressions/ProhibitEscapedMetacharacters.pm
Criterion Covered Total %
branch 10 14 71.4


line true false branch
37 1 15 unless $elem =~ /\\/msx
39 0 15 unless my $re = $document->ppix_regexp_from_element($elem)
40 0 15 if $re->failures
41 0 15 unless my $qr = $re->regular_expression
43 0 15 unless my $exacts = $qr->find("PPIx::Regexp::Token::Literal")
45 41 45 unless $exact->content =~ / \\ ( . ) /msx
46 4 41 if $REGEXP_METACHARS{$1}