Branch Coverage

blib/lib/Perl/Lint/Policy/Modules/RequireExplicitPackage.pm
Criterion Covered Total %
branch 10 10 100.0


line true false branch
20 5 8 if ($exempt_scripts || !$token || $token->{'type'} == 128 and not $allow_import_of) { }
28 4 6 if ($token_type == 93) { }
1 5 elsif ($token_type == 128) { }
33 4 8 if ($token_type != 127 and $token_type != 126 and $token_type != 94) { }
44 2 2 unless (&any(sub { $_ eq $used_name; } , @$allow_import_of))