blib/lib/Role/Basic.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 34 | 44 | 77.2 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
33 | 74 | 1 | 56 | 1 == @_ and 'with' eq $_[0] |
72 | 1 | 2 | 2 == @_ and 'allow' eq $_[0] | |
206 | 19 | 5 | 13 | @sources > 1 and $target ne _sub_package($target->can($method)) |
263 | 13 | 3 | 0 | exists $$code_for{$new_method} and not $$is_excluded{$new_method} |
400 | 0 | 0 | 1022 | $stash and $stash->can('NAME') |
line | l | !l | condition |
---|---|---|---|
66 | 29 | 43 | $REQUIRED_BY{$role} ||= [] |
121 | 97 | 20 | $role_modifiers ||= {} |
316 | 24 | 90 | delete $$role_modifiers{'-excludes'} || [] |
317 | 20 | 94 | delete $$role_modifiers{'-alias'} || {} |
318 | 3 | 111 | delete $$role_modifiers{'-rename'} || {} |
410 | 1022 | 0 | $source_package || '' |
416 | 2 | 119 | $version ||= '' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
29 | 18 | 28 | 0 | ref $proto || $proto |
151 | 52 | 100 | 0 | $PROVIDES{$role_name}{$method} ||= $data |
253 | 36 | 78 | 0 | $is_loaded || $class->_get_methods($role) |
380 | 199 | 0 | 571 | $target eq $source || $IS_ROLE{$target} && $IS_ROLE{$source} |
434 | 1 | 0 | 0 | not $requires or $class ne _sub_package($requires) |