| blib/lib/MOP/Slot.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 14 | 92.8 |
| line | true | false | branch |
|---|---|---|---|
| 22 | 1 | 59 | if (scalar @_ eq 2 and not ref $_[0] and ref $_[1] eq 'CODE') { } |
| 30 | 1 | 59 | unless $args->{'name'} |
| 32 | 1 | 58 | unless $args->{'initializer'} |
| 35 | 1 | 57 | unless ref $args->{'initializer'} eq 'CODE' or MOP::Internal::Util::CAN_COERCE_TO_CODE_REF($args->{'initializer'}) |
| 61 | 18 | 82 | MOP::Internal::Util::CAN_COERCE_TO_CODE_REF($self->[1]) ? : |
| 79 | 0 | 18 | if scalar @classnames == 0 |
| 84 | 15 | 3 | if $candidate eq $class |