diff options
-rw-r--r-- | lib/MooseX/NonMoose/Meta/Role/Class.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/MooseX/NonMoose/Meta/Role/Class.pm b/lib/MooseX/NonMoose/Meta/Role/Class.pm index 0ac46a0..403b2c8 100644 --- a/lib/MooseX/NonMoose/Meta/Role/Class.pm +++ b/lib/MooseX/NonMoose/Meta/Role/Class.pm @@ -60,6 +60,10 @@ around _immutable_options => sub { # do nothing if extends was called, but we then added a method modifier to # the constructor (this will warn, but that's okay) + # XXX: this is a fairly big hack, but it should cover most of the cases + # that actually show up in practice... it would be nice to do this properly + # though + # XXX: get constructor name from the constructor metaclass? return @options if $self->get_method('new')->isa('Class::MOP::Method::Wrapped'); |