Branch Coverage

blib/lib/Perl/Lint/Policy/BuiltinFunctions/ProhibitComplexMappings.pm
Criterion Covered Total %
branch 26 30 86.6


line true false branch
16 0 6 if (--$max_statements < 0)
26 20 101 if ($token_type == 70 and $token_data eq 'map')
28 1 19 if ($$token{'type'} == 107)
32 5 15 if ($$token{'type'} != 109)
40 1 97 if ($token_type == 96) { }
1 96 elsif ($token_type == 87) { }
11 85 elsif ($token_type == 106) { }
9 76 elsif ($token_type == 109) { }
16 60 elsif ($token_type == 110) { }
52 1 0 if ($$token{'type'} == 109)
56 0 4 if ($token_type == 109) { }
1 3 elsif ($token_type == 110) { }
60 1 0 if --$left_brace_num <= 0
69 7 1 if ($statements_num > $max_statements and $left_brace_num != 1 || $next_token_type && $next_token_type != 110)
84 7 9 if --$left_brace_num <= 0