| blib/lib/Data/Rx/Type/Perl/Code.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 12 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 44 | 3 | 0 | if $key eq 'prototype' |
| 60 | 1 | 2 | !defined($arg->{'prototype'}) ? : |
| 2 | 3 | !exists $arg->{'prototype'} ? : | |
| 68 | 5 | 13 | unless (ref $value) |
| 77 | 0 | 13 | unless (&Scalar::Util::reftype($value) eq 'CODE') |
| 85 | 6 | 7 | if (defined $self->{'prototype_schema'} and not $self->{'prototype_schema'}->check(prototype $value)) |