| lib/Class/Roles.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 16 | 87.5 |
| line | true | false | branch |
|---|---|---|---|
| 24 | 1 | 16 | if (@_ % 2 != 0) |
| 32 | 1 | 11 | unless (exists $actions{$name}) |
| 44 | 3 | 1 | unless ref $role eq 'ARRAY' |
| 56 | 0 | 2 | unless ref $methods eq 'ARRAY' |
| 77 | 8 | 1 | unless defined &{$export_name;} |
| 101 | 1 | 12 | if $class eq $role |
| 102 | 6 | 6 | if exists $does{$class}{$role} |
| 116 | 1 | 0 | if $parent->does($role) or check_isa($parent, $role) |