blib/lib/Mouse/Util/MetaRole.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 4 | 9 | 44.4 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
44 | 10 | 0 | 0 | $for->can($metaclass = $key . '_metaclass') || $for->can($metaclass = $key . '_class') || $for->throw_error("Unknown metaclass '${key}'") |
59 | 0 | 0 | 0 | $args->{'class_metaroles'} or $args->{'roles_metaroles'} |
135 | 2 | 4 | 38 | ref $_ || $meta->does_role($_) |