| blib/lib/Block/NamedVar/ForLike.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 16 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 16 | 0 | 36 | if (@{$self->parts;} > 3) |
| 27 | 24 | 12 | if (@{$self->parts;} > 2) { } |
| 6 | 6 | elsif (@{$self->parts;} < 2) { } | |
| 30 | 0 | 24 | unless grep {$first->[0] eq $_;} 'my', 'our' |
| 57 | 18 | 18 | if ref $vars |
| 65 | 0 | 36 | if @bad |
| 74 | 30 | 6 | $self->dec ? : |
| 87 | 0 | 6 | unless @_ |