diff options
author | doy <doy@tozt.net> | 2009-04-20 18:42:43 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2009-04-20 18:42:43 -0500 |
commit | 709d4e03b355e694fe8f974104a1b069f0a40156 (patch) | |
tree | f6f9d1f52e4aaeaf3eee859e1fcb0294084aa24f /lib | |
parent | a3423ec0f408cb14a6f4718b70762e0f6734e43a (diff) | |
download | moosex-nonmoose-709d4e03b355e694fe8f974104a1b069f0a40156.tar.gz moosex-nonmoose-709d4e03b355e694fe8f974104a1b069f0a40156.zip |
use has_nonmoose_constructor as the metaclass attr name
Diffstat (limited to 'lib')
-rw-r--r-- | lib/MooseX/NonMoose/Meta/Role/Class.pm | 6 |
1 files changed, 3 insertions, 3 deletions
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; }; |