Branch Coverage

blib/lib/Perl/Lint/Policy/Modules/RequireFilenameMatchesPackage.pm
Criterion Covered Total %
branch 31 32 96.8


line true false branch
15 1 25 if ($src =~ /\A#!/)
26 9 92 if ($src_row =~ /\A#line\s\d+\s(.+)\Z/)
27 1 8 if ($file)
48 24 76 if ($token_type == 128)
49 8 16 if ($next_token->{'type'} == 129)
60 34 34 if ($token_type == 127) { }
18 16 elsif ($token_type == 126) { }
84 1 22 if ($directive_declared_row and $package_declared_line < $directive_declared_row)
91 2 21 if ($path eq 'main' and not $is_directive_declared_after) { }
21 0 elsif (defined $file) { }
95 8 13 if (not $file =~ m[/]) { }
6 7 elsif ($file =~ /$path\.p[ml]/) { }
2 5 elsif ($file =~ m[$module_name(?:-\d[\d\.]*?\d)?/$last_path]) { }
1 4 elsif ($file =~ m[[A-Z]\w*-\d[\d\.]*\d/$last_path]) { }
97 5 3 if ($file =~ /$last_path\.p[ml]/)
112 8 13 if (not $should_be_no_error or $should_be_no_error and $is_directive_declared_after)