| blib/lib/Perl/Critic/Policy/Tics/ProhibitManyArrows.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 12 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 50 | 0 | 11 | unless defined $arg{'max_allowed'} |
| 52 | 0 | 11 | unless $arg{'max_allowed'} =~ /\A\d+\z/ and $arg{'max_allowed'} >= 0 |
| 64 | 22 | 24 | unless $elem eq '=>' |
| 65 | 12 | 12 | if eval { do { $elem->sprevious_sibling->sprevious_sibling } } eq '=>' |
| 71 | 6 | 12 | unless $next eq '=>' |
| 76 | 6 | 6 | unless $in_a_row > $self->_max_allowed |