From 571bfa3b91ff5567338948776b6fce84d3ede09e Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 15 Jun 2010 00:53:14 -0500
Subject: fix inlined nonmoose constructors which call other methods (woosley)

---
 lib/MooseX/NonMoose/Meta/Role/Constructor.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/MooseX/NonMoose/Meta/Role/Constructor.pm b/lib/MooseX/NonMoose/Meta/Role/Constructor.pm
index d0ececb..50ddec6 100644
--- a/lib/MooseX/NonMoose/Meta/Role/Constructor.pm
+++ b/lib/MooseX/NonMoose/Meta/Role/Constructor.pm
@@ -58,7 +58,7 @@ sub _generate_instance {
     my $arglist = $meta->get_method('FOREIGNBUILDARGS')
                 ? "${class_var}->FOREIGNBUILDARGS(\@_)"
                 : '@_';
-    my $instance = "$super_new_class->$new($arglist)";
+    my $instance = "${class_var}->${super_new_class}::$new($arglist)";
     return "my $var = $instance;\n"
          . "if (!Scalar::Util::blessed($var)) {\n"
          . "    " . $self->_inline_throw_error(
-- 
cgit v1.2.3-54-g00ecf