diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-06-15 00:53:14 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-06-15 00:53:14 -0500 |
commit | 571bfa3b91ff5567338948776b6fce84d3ede09e (patch) | |
tree | dde0ee41847f846ac29174074a3c03079dcf329c /lib | |
parent | 199626024f7087c05be3005965d33be2bb8a845f (diff) | |
download | moosex-nonmoose-571bfa3b91ff5567338948776b6fce84d3ede09e.tar.gz moosex-nonmoose-571bfa3b91ff5567338948776b6fce84d3ede09e.zip |
fix inlined nonmoose constructors which call other methods (woosley)
Diffstat (limited to 'lib')
-rw-r--r-- | lib/MooseX/NonMoose/Meta/Role/Constructor.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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( |