Branch Coverage

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