From 709d4e03b355e694fe8f974104a1b069f0a40156 Mon Sep 17 00:00:00 2001
From: doy <doy@tozt.net>
Date: Mon, 20 Apr 2009 18:42:43 -0500
Subject: use has_nonmoose_constructor as the metaclass attr name

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

(limited to 'lib')

diff --git a/lib/MooseX/NonMoose/Meta/Role/Class.pm b/lib/MooseX/NonMoose/Meta/Role/Class.pm
index 9ce56db..a313cb5 100644
--- a/lib/MooseX/NonMoose/Meta/Role/Class.pm
+++ b/lib/MooseX/NonMoose/Meta/Role/Class.pm
@@ -1,7 +1,7 @@
 package MooseX::NonMoose::Meta::Role::Class;
 use Moose::Role;
 
-has replace_constructor => (
+has has_nonmoose_constructor => (
     is      => 'rw',
     isa     => 'Bool',
     default => 0,
@@ -12,7 +12,7 @@ around _make_immutable_transformer => sub {
     my $self = shift;
 
     # do nothing if extends was never called
-    return $self->$orig(@_) if !$self->replace_constructor;
+    return $self->$orig(@_) if !$self->has_nonmoose_constructor;
 
     # do nothing if extends was called, but we then added a method modifier to
     # the constructor (this will warn, but that's okay)
@@ -79,7 +79,7 @@ around superclasses => sub {
         $self->BUILDALL($params);
         return $self;
     });
-    $self->replace_constructor(1);
+    $self->has_nonmoose_constructor(1);
 
     return @ret;
 };
-- 
cgit v1.2.3-54-g00ecf