if($class ne __PACKAGE__){
$self->meta->_initialize_object($self, \%args);
}
-
return $self;
}
return;
}
-
-# Moose uses Application::ToInstance, Application::ToClass, Application::ToRole
sub apply {
my $self = shift;
my $consumer = shift;
return Mouse::Meta::Role::Application->new(@_)->apply($self, $consumer);
}
-
sub combine {
my($self, @role_specs) = @_;
require 'Mouse/Meta/Role/Composite.pm';
- my $composite = Mouse::Meta::Role::Composite->create_anon_role();
-
- foreach my $role_spec (@role_specs) {
- my($role_name, $args) = @{$role_spec};
- $role_name->meta->apply($composite, %{$args});
- }
- return $composite;
+ return Mouse::Meta::Role::Composite->new(roles => \@role_specs);
}
sub add_before_method_modifier;
=head1 VERSION
-This document describes Mouse version 0.70
+This document describes Mouse version 0.88
=head1 DESCRIPTION