Branch Coverage

blib/lib/Perl/Lint/Policy/TestingAndDebugging/ProhibitNoWarnings.pm
Criterion Covered Total %
branch 17 18 94.4


line true false branch
17 10 3 if (my $this_policies_arg = $args->{'prohibit_no_warnings'})
18 4 6 if (my $allow = $this_policies_arg->{'allow'})
30 14 36 if ($token_type == 70 and $token->{'data'} eq 'no')
34 14 0 if ($token->{'type'} == 122 and $token->{'data'} eq 'warnings')
39 13 40 if ($token_type == 172 or $token_type == 173) { }
4 36 elsif ($token_type == 187) { }
14 22 elsif ($token_type == 106 or not $$tokens[$i + 1]) { }
46 5 9 if @allows and $allow_with_category_restriction
51 7 2 if (not @arg_allows or @allows)