Branch Coverage

blib/lib/Perl/Lint/Policy/ClassHierarchies/ProhibitOneArgBless.pm
Criterion Covered Total %
branch 21 22 95.4


line true false branch
22 14 56 if ($token_type == 70 and $token_data eq 'bless')
28 7 7 if $$tokens[$i + 1]{'type'} == 107
35 0 66 if ($token_type == 107) { }
7 59 elsif ($token_type == 109) { }
8 51 elsif ($token_type == 111) { }
7 44 elsif ($token_type == 108) { }
7 37 elsif ($token_type == 110) { }
8 29 elsif ($token_type == 112) { }
6 23 elsif ($token_type == 104 || $token_type == 124 and $left_paren_num <= 0 and $left_brace_num <= 0 and $left_bracket_num <= 0) { }
14 9 elsif ($token_type == 106 and $left_paren_num <= 0 and $left_brace_num <= 0 and $left_bracket_num <= 0) { }
67 8 6 if ($comma_num == 0)