| blib/lib/Tie/Subset/Hash.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 23 | 24 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 43 | 1 | 7 | unless @_ == 3 |
| 45 | 1 | 6 | unless ref $hash eq "HASH" |
| 46 | 1 | 5 | unless ref $keys eq "ARRAY" |
| 47 | 1 | 17 | if ref $_ |
| 1 | 16 | unless defined $_ | |
| 61 | 6 | 30 | unless exists $self->{'keys'}{$key} |
| 75 | 3 | 2 | if (exists $self->{'keys'}{$key}) |
| 93 | 23 | 2 | if (exists $self->{'keys'}{$key} and exists $self->{'hash'}{$key}) { } |
| 116 | 9 | 46 | unless defined $next |
| 117 | 19 | 27 | unless exists $self->{'hash'}{$next} |
| 132 | 4 | 2 | if (exists $self->{'keys'}{$key}) |
| 162 | 0 | 1 | if $] lt "5.026" |