From 1bc466ec9fdeb4ba4df5d13b2c8cf03d156641fe Mon Sep 17 00:00:00 2001
From: doy <doy@tozt.net>
Date: Mon, 13 Apr 2009 23:54:12 -0500
Subject: look up the proper constructor name

---
 lib/MooseX/NonMoose/Meta/Role/Constructor.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/MooseX/NonMoose/Meta/Role/Constructor.pm b/lib/MooseX/NonMoose/Meta/Role/Constructor.pm
index eef0573..d2efff1 100644
--- a/lib/MooseX/NonMoose/Meta/Role/Constructor.pm
+++ b/lib/MooseX/NonMoose/Meta/Role/Constructor.pm
@@ -18,8 +18,9 @@ around can_be_inlined => sub {
 sub _generate_instance {
     my $self = shift;
     my ($var, $class_var) = @_;
-    my $super_new_class = $self->associated_metaclass->find_next_method_by_name('new')->package_name;
-    "my $var = bless $super_new_class->new(\@_), $class_var;\n";
+    my $new = $self->name;
+    my $super_new_class = $self->associated_metaclass->find_next_method_by_name($new)->package_name;
+    "my $var = bless $super_new_class->$new(\@_), $class_var;\n";
 }
 
 no Moose::Role;
-- 
cgit v1.2.3-54-g00ecf