| blib/lib/Perl/Lint/Policy/Modules/RequireEndWithOne.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 5 | 6 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 1 | 15 | if ($src =~ /\A#!/) |
| 29 | 0 | 15 | unless (%$last_token and %$before_last_token) |
| 33 | 1 | 9 | unless ($before_last_token_type == 65 and $last_token_type == 122 and $last_token_data eq 'pod' or !$extra_before_token || $extra_before_token->{'type'} == 106 || $extra_before_token->{'type'} == 110 and $before_last_token_type == 170 and $last_token_type == 106 and eval $before_last_token_data == 1) |