| blib/lib/Perl/Critic/Policy/Lax/RequireExplicitPackage/ExceptForPragmata.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 12 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 71 | 0 | 9 | if ref $self->{'_allowed_pragmata'} eq 'ARRAY' |
| 79 | 1 | 8 | if $self->{'_exempt_scripts'} and $doc->is_program |
| 83 | 8 | 0 | $package_stmnt ? : |
| 87 | 0 | 8 | unless $stmnts_ref |
| 95 | 1 | 7 | unless @non_packages |
| 103 | 4 | 6 | if (not defined $package_line or $statement_line < $package_line) |