From 5e89792fb83bb3d6d28ea62f025ec10c5cd4fcae Mon Sep 17 00:00:00 2001 From: doy Date: Mon, 20 Apr 2009 22:42:01 -0500 Subject: a few more todo comments --- lib/MooseX/NonMoose/Meta/Role/Class.pm | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'lib/MooseX/NonMoose') 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'); -- cgit v1.2.3-54-g00ecf