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;
}
}
my $into = $self->name;
$install_modifier->($into, $type, $name, $code);
- $self->add_method($name => do{
- no strict 'refs';
- \&{ $into . '::' . $name };
- });
+ $self->add_method($name => Mouse::Util::get_code_ref($into, $name));
return;
};
}
(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;
=head1 VERSION
-This document describes Mouse version 0.50_03
+This document describes Mouse version 0.50_04
=head1 METHODS