diff options
Diffstat (limited to 'lib/MooseX/NonMoose.pm')
-rw-r--r-- | lib/MooseX/NonMoose.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/MooseX/NonMoose.pm b/lib/MooseX/NonMoose.pm index d60a996..d3004e0 100644 --- a/lib/MooseX/NonMoose.pm +++ b/lib/MooseX/NonMoose.pm @@ -12,9 +12,11 @@ sub extends_nonmoose { Moose::extends($caller, @superclasses); Class::MOP::Class->initialize($caller)->add_method(new => sub { my $class = shift; - my $self = $class->SUPER::new(@_); + my $meta = Class::MOP::Class->initialize($class); + my $super_new = $meta->find_next_method_by_name('new'); + my $self = $super_new->execute($class, @_); my $params = $class->BUILDARGS(@_); - my $moose_self = Class::MOP::Class->initialize($class)->new_object( + my $moose_self = $meta->new_object( __INSTANCE__ => $self, %$params, ); |