}
sub _apply_attributes{
- my($role, $consumer, $args) = @_;
+ #my($role, $consumer, $args) = @_;
+ my($role, $consumer) = @_;
for my $attr_name ($role->get_attribute_list) {
next if $consumer->has_attribute($attr_name);
}
sub _apply_modifiers{
- my($role, $consumer, $args) = @_;
+ #my($role, $consumer, $args) = @_;
+ my($role, $consumer) = @_;
+
if(my $modifiers = $role->{override_method_modifiers}){
foreach my $method_name (keys %{$modifiers}){
}
sub _append_roles{
- my($role, $consumer, $args) = @_;
+ #my($role, $consumer, $args) = @_;
+ my($role, $consumer) = @_;
my $roles = $consumer->{roles};
if(defined $instance){ # Application::ToInstance
# rebless instance
bless $instance, $consumer->name;
- $consumer->_initialize_object($instance, $instance);
+ $consumer->_initialize_object($instance, $instance, 1);
}
return;
sub combine {
- my($role_class, @role_specs) = @_;
+ my($self, @role_specs) = @_;
require 'Mouse/Meta/Role/Composite.pm'; # we don't want to create its namespace
=head1 VERSION
-This document describes Mouse version 0.50_03
+This document describes Mouse version 0.68
+
+=head1 DESCRIPTION
+
+This class is a meta object protocol for Mouse roles,
+which is a subset of Moose::Meta:::Role.
=head1 SEE ALSO