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'}) |