summaryrefslogtreecommitdiffstats
path: root/lib/MooseX/NonMoose.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/MooseX/NonMoose.pm')
-rw-r--r--lib/MooseX/NonMoose.pm6
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,
);