diff --git a/Moose-t-failing/050_metaclasses/050_metarole_backcompat.t b/Moose-t-failing/050_metaclasses/050_metarole_backcompat.t index c3ce4cfe..b5bacdf7 100644 --- a/Moose-t-failing/050_metaclasses/050_metarole_backcompat.t +++ b/Moose-t-failing/050_metaclasses/050_metarole_backcompat.t @@ -223,8 +223,8 @@ use Mouse::Util::MetaRole; { Mouse::Util::MetaRole::apply_base_class_roles( - for_class => 'My::Class', - roles => ['Role::Foo'], + for => 'My::Class', + roles => ['Role::Foo'], ); ok( My::Class->meta()->does_role('Role::Foo'), diff --git a/lib/Mouse/Util/MetaRole.pm b/lib/Mouse/Util/MetaRole.pm index 3712f543..113ba317 100644 --- a/lib/Mouse/Util/MetaRole.pm +++ b/lib/Mouse/Util/MetaRole.pm @@ -104,11 +104,12 @@ sub _fixup_old_style_args { return; } - sub apply_base_class_roles { my %options = @_; - my $for = $options{for_class}; + _fixup_old_style_args(\%options); + + my $for = $options{for}; my $meta = Mouse::Util::class_of($for);