Branch Coverage

blib/lib/Perl/Lint/Policy/Variables/ProhibitPerl4PackageNames.pm
Criterion Covered Total %
branch 19 20 95.0


line true false branch
23 153 763 if ($token_type == 126) { }
3 760 elsif ($token_type == 109) { }
646 114 elsif ($token_type != 127) { }
24 57 96 $token->{'data'} eq q['] ? :
29 65 371 if ($token_type == 126) { }
153 218 elsif ($token_type != 127) { }
30 23 42 if ($token->{'data'} eq q['])
39 77 76 if ($is_perl4_package_name)
40 2 75 if ($is_just_before_left_brace)
44 0 75 if ($token and $token->{'type'} == 124)