| blib/lib/Perl/Lint/Policy/ValuesAndExpressions/ProhibitLongChainsOfMethodCalls.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 10 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 2 | 7 | if (my $this_policies_arg = $args->{'prohibit_long_chains_of_method_calls'}) |
| 25 | 104 | 495 | if ($token_type == 125) { } |
| 46 | 449 | elsif ($token_type == 106 or $token->{'kind'} == 17) { } | |
| 28 | 16 | 88 | if ($next_token_type == 109 or $next_token_type == 111) |
| 36 | 12 | 34 | if ($num_of_chain > $max_chain_length) |