blib/lib/Data/Rx/Type/Perl/Obj.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 5 | 11 | 45.4 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
68 | 0 | 3 | 1 | defined $self->{'isa'} and not eval { do { $value->isa($self->{'isa'}) } } |
76 | 3 | 0 | 0 | defined $self->{'does'} and not eval { do { $value->DOES($self->{'does'}) } } |
line | l | !l | condition |
---|---|---|---|
42 | 3 | 0 | $arg ||= {} |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
45 | 3 | 0 | 0 | $key eq 'isa' or $key eq 'does' |