| blib/lib/Perl/Lint/Policy/ValuesAndExpressions/RequireUpperCaseHeredocTerminator.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 6 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 26 | 8 | 96 | if ($token_type == 50) |
| 32 | 3 | 97 | if ($token_type == 176 or $token_type == 177 or $is_before_left_shift and $token_type == 122) |
| 37 | 4 | 3 | if ($token->{'data'} =~ /[a-z]/) |