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