Branch Coverage

blib/lib/Perl/Critic/Policy/Modules/RequireNoMatchVarsWithUseEnglish.pm
Criterion Covered Total %
branch 25 32 78.1


line true false branch
33 2 123 if $elem->type ne "use"
34 57 66 if $elem->module ne "English"
40 0 66 unless (@elements)
48 0 66 unless (@elements)
55 45 28 if ($current_element->isa('PPI::Token::Quote')) { }
20 8 elsif ($current_element->isa('PPI::Token::QuoteLike::Words')) { }
6 4 elsif (not $current_element->isa('PPI::Token::Operator') or $current_element->content ne $Perl::Critic::Policy::Modules::RequireNoMatchVarsWithUseEnglish::COMMA and $current_element->content ne $Perl::Critic::Policy::Modules::RequireNoMatchVarsWithUseEnglish::FATCOMMA) { }
56 42 3 if $current_element->string eq "-no_match_vars"
59 18 2 if $current_element->content =~ /-no_match_vars \b/msx
82 5 61 if ($current_element->isa('PPI::Token::Number')) { }
0 61 elsif (@{$elements_ref;} >= 2 and $current_element->isa('PPI::Token::Word') and $current_element->content =~ /\A v \d+ \z/msx and $elements_ref->[1]->isa('PPI::Token::Number')) { }
103 0 66 unless @elements
107 3 63 if ($current_element->isa("PPI::Structure::List"))
109 0 3 unless (@grand_children)
115 3 0 if ($grand_child->isa('PPI::Statement::Expression')) { }
118 0 3 unless (@great_grand_children)