}
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};
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_08
+This document describes Mouse version 0.54
=head1 SEE ALSO