Branch Coverage

blib/lib/Perl/Critic/Policy/NamingConventions/ProhibitMixedCaseVars.pm
Criterion Covered Total %
branch 6 6 100.0


line true false branch
42 10 10 if (_has_mixed_case_vars($elem))
57 2 29 if 'local' eq $elem->type and $variable_name =~ /$PACKAGE_RX/msx
58 10 19 if $variable_name =~ /$MIXED_RX/msx