my @roles;
foreach my $role($super_meta->meta->calculate_all_roles){
- if(!$self->meta->does_role($role->name)){
+ if(!$self->meta->does_role($role)){
push @roles, $role->name;
}
}
(defined $role_name)
|| $self->throw_error("You must supply a role name to look for");
+ $role_name = $role_name->name if ref $role_name;
+
for my $class ($self->linearized_isa) {
my $meta = Mouse::Util::get_metaclass_by_name($class)
or next;