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