| blib/lib/Perl/Lint/Policy/Subroutines/RequireArgUnpacking.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 32 | 36 | 88.8 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 26 | 51 | 0 | 1 | $token_type == 122 and $next_token->{'type'} == 109 |
| 47 | 658 | 82 | 11 | $token_type == 70 and $token_data eq 'shift' |
| 711 | 0 | 29 | $token_type == 137 and $token_data eq '$_' | |
| 654 | 1 | 56 | $token_type == 136 and not $allow_subscripts | |
| 113 | 2 | 0 | 2 | @allow_delegation_to and &any(sub { $_ eq $token_data unless $_ eq $package_name; } , @allow_delegation_to) |
| line | l | !l | condition |
|---|---|---|---|
| 17 | 1 | 20 | $require_arg_unpacking_arg->{'short_subroutine_statements'} || undef |
| 18 | 1 | 20 | $require_arg_unpacking_arg->{'allow_subscripts'} || 0 |
| 19 | 1 | 20 | $require_arg_unpacking_arg->{'allow_delegation_to'} || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 26 | 20 | 0 | 52 | $token_type == 63 or $token_type == 122 and $next_token->{'type'} == 109 |
| 47 | 10 | 3 | 642 | $token_type == 127 or $token_type == 64 |
| 54 | 13 | 1 | 1 | not defined $short_subroutine_statements or $end_line - $begin_line - 1 > $short_subroutine_statements |
| 100 | 2 | 1 | 10 | $is_inherited or $token_data eq 'NEXT' |
| 3 | 1 | 9 | $is_inherited or $token_data eq 'NEXT' or $token_data eq 'SUPER' |