Branch Coverage

blib/lib/Perl/Lint/Policy/TestingAndDebugging/ProhibitProlongedStrictureOverride.pm
Criterion Covered Total %
branch 25 28 89.2


line true false branch
19 1 7 if (my $this_policies_arg = $args->{'prohibit_prolonged_stricture_override'})
22 1 7 defined $statements_arg ? :
32 4 75 if ($token_type == 63) { }
4 71 elsif ($token_type == 70 and $token->{'data'} eq 'no') { }
11 108 elsif ($token_type == 106 and $no_strict) { }
40 4 52 if ($token_type == 70 and $token->{'data'} eq 'no') { }
14 38 elsif ($token_type == 106 and $no_strict) { }
4 34 elsif ($token_type == 109) { }
2 32 elsif ($token_type == 110) { }
45 4 0 if ($token_type == 122 and $token->{'data'} eq 'strict')
52 2 12 if ($statements_num_of_after_no_strict > $allow_statements_num)
68 2 0 if ($left_brace_num <= 0)
79 4 0 if ($token_type == 122 and $token->{'data'} eq 'strict')
86 2 9 if ($statements_num_of_after_no_strict > $allow_statements_num)