| 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) { } |