blib/lib/Perl/Lint/Policy/Variables/ProhibitAugmentedAssignmentInDeclaration.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 8 | 8 | 100.0 |
line | true | false | branch |
---|---|---|---|
31 | 86 | 333 | if ($tokens->[$i]{'kind'} == 3) |
34 | 35 | 4 | if ($var_type == 166 or $var_type == 191 or $var_type == 194) |
37 | 73 | 15 | if ($token->{'kind'} == 2 and {%= => 1, &&= => 1, &= => 1, **= => 1, *= => 1, += => 1, -= => 1, .= => 1, //= => 1, /= => 1, <<= => 1, >>= => 1, ^= => 1, x= => 1, |= => 1, ||= => 1}->{$token->{'data'}}) { } |
9 | 6 | elsif ($token->{'type'} == 65 or $token->{'type'} == 106) { } |