| blib/lib/Block/NamedVar/MapLike.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 16 | 81.2 |
| line | true | false | branch |
|---|---|---|---|
| 14 | 0 | 42 | if (@{$self->parts;} > 2) |
| 25 | 30 | 12 | if (@{$self->parts;} > 1) { } |
| 28 | 0 | 30 | unless grep {$first->[0] eq $_;} 'my', 'our' |
| 34 | 6 | 6 | if ref $self->parts->[0] |
| 48 | 6 | 36 | if (ref $var) |
| 51 | 36 | 6 | if $var =~ /^\$\w[\w\d_]*$/ |
| 52 | 6 | 0 | if $var =~ /^\w[\w\d_]*$/ |
| 58 | 36 | 6 | $self->dec ? : |