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