From 547469b0aeea58c04c0e122ffb220be27c14f204 Mon Sep 17 00:00:00 2001
From: doy <doy@tozt.net>
Date: Sat, 11 Apr 2009 18:42:14 -0500
Subject: no, moose doesn't automatically inline constructors, i was just
 getting my own constructor back

---
 lib/MooseX/NonMoose.pm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'lib')

diff --git a/lib/MooseX/NonMoose.pm b/lib/MooseX/NonMoose.pm
index 1d76f52..b2c6037 100644
--- a/lib/MooseX/NonMoose.pm
+++ b/lib/MooseX/NonMoose.pm
@@ -33,6 +33,9 @@ sub extends {
         # no reason to install a new one
         return if $constructor_class_meta->can('does_role')
                && $constructor_class_meta->does_role('MooseX::NonMoose::Meta::Role::Constructor');
+        # if the constructor we're inheriting is an inlined version of the
+        # default moose constructor, don't do anything either
+        return if $constructor_class_meta->name eq 'Moose::Meta::Method::Constructor';
     }
 
     $caller_meta->add_method(new => sub {
-- 
cgit v1.2.3-54-g00ecf