| blib/lib/Tie/Subset/Hash.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 18 | 77.7 |
| line | true | false | branch |
|---|---|---|---|
| 43 | 0 | 3 | unless @_ == 3 |
| 45 | 0 | 3 | unless ref $hash eq 'HASH' |
| 46 | 0 | 3 | unless ref $keys eq 'ARRAY' |
| 47 | 0 | 16 | if ref $_ or not defined $_ |
| 61 | 6 | 30 | unless exists $self->{'keys'}{$key} |
| 75 | 3 | 2 | if (exists $self->{'keys'}{$key}) |
| 111 | 9 | 46 | unless defined $next |
| 112 | 19 | 27 | unless exists $self->{'hash'}{$next} |
| 127 | 4 | 2 | if (exists $self->{'keys'}{$key}) |