| blib/lib/Perl/Critic/Policy/logicLAB/RequireSheBang.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 18 | 66.6 |
| line | true | false | branch |
|---|---|---|---|
| 26 | 0 | 18 | if ($self->{'exempt_modules'} and $document->is_module) |
| 38 | 0 | 138 | unless ($statement->location->[0]) |
| 43 | 0 | 138 | if ($self->{'debug'}) |
| 57 | 18 | 120 | if ($cli) |
| 64 | 0 | 138 | if ($self->{'debug'} and $shebang and $cli) { } |
| 0 | 138 | elsif ($self->{'debug'}) { } | |
| 77 | 9 | 129 | if ($shebang and &none(sub { $shebang . $cli eq $_; } , @{$$self{'_formats'};})) |
| 80 | 0 | 9 | if ($self->{'debug'}) |
| 104 | 3 | 1 | if ($formats) |