| blib/lib/Perl/Lint/Policy/Variables/ProhibitPerl4PackageNames.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 19 | 20 | 95.0 |
| line | true | false | branch |
|---|---|---|---|
| 23 | 153 | 763 | if ($token_type == 126) { } |
| 3 | 760 | elsif ($token_type == 109) { } | |
| 646 | 114 | elsif ($token_type != 127) { } | |
| 24 | 57 | 96 | $token->{'data'} eq q['] ? : |
| 29 | 65 | 371 | if ($token_type == 126) { } |
| 153 | 218 | elsif ($token_type != 127) { } | |
| 30 | 23 | 42 | if ($token->{'data'} eq q[']) |
| 39 | 77 | 76 | if ($is_perl4_package_name) |
| 40 | 2 | 75 | if ($is_just_before_left_brace) |
| 44 | 0 | 75 | if ($token and $token->{'type'} == 124) |