diff options
Diffstat (limited to 'lib/MooseX/NonMoose/Meta/Role/Class.pm')
-rw-r--r-- | lib/MooseX/NonMoose/Meta/Role/Class.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/MooseX/NonMoose/Meta/Role/Class.pm b/lib/MooseX/NonMoose/Meta/Role/Class.pm index 403b2c8..0ccc5b9 100644 --- a/lib/MooseX/NonMoose/Meta/Role/Class.pm +++ b/lib/MooseX/NonMoose/Meta/Role/Class.pm @@ -118,7 +118,10 @@ around superclasses => sub { my $class = shift; my $params = $class->BUILDARGS(@_); - my $instance = $super_new->execute($class, @_); + my @foreign_params = $class->can('FOREIGNBUILDARGS') + ? $class->FOREIGNBUILDARGS(@_) + : @_; + my $instance = $super_new->execute($class, @foreign_params); my $self = Class::MOP::Class->initialize($class)->new_object( __INSTANCE__ => $instance, %$params, |