| blib/lib/Data/Rx/Type/Perl/Ref.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 5 | 8 | 62.5 |
| line | true | false | branch |
|---|---|---|---|
| 44 | 3 | 0 | if $key eq "referent" |
| 52 | 3 | 0 | if ($arg->{'referent'}) |
| 64 | 3 | 8 | unless (ref $value and ref $value eq 'REF' || ref $value eq 'SCALAR') |
| 72 | 8 | 0 | if ($self->{'referent'}) |