| blib/lib/Perl6/Roles.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 18 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 27 | 2 | 23 | if (my $old_class = blessed $class) |
| 46 | 2 | 40 | if (@isa > 1 or $isa[0] ne 'Perl6::Roles') |
| 61 | 14 | 9 | unless ($class->isa('Perl6::Roles')) |
| 69 | 11 | 23 | if (*{"${class}::$method";}{'CODE'}) |
| 74 | 3 | 8 | if ($conflict and $conflict ne $r) |
| 100 | 20 | 1 | if $parent->does($role) or _check_isa($parent, $role) |
| 110 | 54 | 12 | unless $class |
| 112 | 16 | 50 | if $class eq $role |
| 113 | 27 | 23 | if $does{$class}{$role} |