| blib/lib/Data/Rx/Type/Perl/Obj.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 8 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 21 | 3 | 0 | if $key eq 'isa' or $key eq 'does' |
| 36 | 2 | 4 | unless (&Scalar::Util::blessed($value)) |
| 44 | 1 | 3 | if (defined $$self{'isa'} and not eval { do { $value->isa($$self{'isa'}) } }) |
| 52 | 0 | 3 | if (defined $$self{'does'} and not eval { do { $value->DOES($$self{'does'}) } }) |