Branch Coverage

blib/lib/Perl/Lint/Policy/NamingConventions/ProhibitAmbiguousNames.pm
Criterion Covered Total %
branch 27 28 96.4


line true false branch
19 3 7 if (defined(my $forbiddens = $args->{'prohibit_ambiguous_names'}{'forbid'}))
29 2 89 if ($token_type == 133 or $token_type == 134)
31 2 0 if $next_token_type == 62 or $next_token_type == 91
37 29 60 if ($token_type == 62 or $token_type == 91 or $token_type == 90) { }
3 57 elsif ($token_type == 63) { }
43 28 45 if ($token_type == 166 or $token_type == 191 or $token_type == 192 or $token_type == 193 or $token_type == 194) { }
4 41 elsif ($token_type == 126 or $token_type == 11) { }
4 37 elsif ($token_type == 127) { }
3 34 elsif ($token_type == 107) { }
3 31 elsif ($token_type == 108) { }
29 2 elsif ($left_paren_num <= 0) { }
74 4 4 if ($token_type == 203 or $token_type == 127) { }
3 1 elsif ($token_type == 109) { }
85 26 11 if (grep {$_ eq $word;} @forbidden_words)