| blib/lib/Tie/Hash/Abbrev.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 5 | 8 | 62.5 |
| line | true | false | branch |
|---|---|---|---|
| 66 | 0 | 23 | unless defined(my $pos1 = $self->valid($_, my $pos = $self->pos($_))) |
| 78 | 0 | 111 | unless $pos <= $#$self and $key eq substr($$self[$pos], 0, length $key) |
| 80 | 0 | 111 | if $$self[$pos] eq $key |
| 85 | 42 | 35 | unless $self->equals($value, $$self[($pos += 2) + 1]) |