Condition Coverage

blib/lib/Perl/Lint/Policy/Subroutines/RequireArgUnpacking.pm
Criterion Covered Total %
condition 32 36 88.8


and 3 conditions

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)

or 2 conditions

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'} || ''

or 3 conditions

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'