| blib/lib/Test/Deep/HashRec.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 16 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 46 | 0 | 1 | unless ref $val eq 'HASH' |
| 61 | 0 | 1 | if keys %copy |
| 67 | 0 | 1 | if @dupes |
| 90 | 0 | 1 | unless (ref $got eq 'HASH') |
| 99 | 1 | 0 | unless ($self->{'allow_unknown'}) |
| 101 | 0 | 1 | if (@unknown) |
| 106 | 0 | 1 | if (my(@missing) = grep({not exists $got->{$_};} keys %{$$self{'required'};})) |
| 110 | 0 | 1 | if (@errors) |