diff options
author | doy <doy@tozt.net> | 2009-04-20 22:42:01 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2009-04-20 22:42:01 -0500 |
commit | 5e89792fb83bb3d6d28ea62f025ec10c5cd4fcae (patch) | |
tree | f02d0e5f7fec3eedba478a13a7d28d4110471eaf /lib/MooseX/NonMoose | |
parent | 067816423e1d927bf885b8fbe3ee343d56bf951c (diff) | |
download | moosex-nonmoose-5e89792fb83bb3d6d28ea62f025ec10c5cd4fcae.tar.gz moosex-nonmoose-5e89792fb83bb3d6d28ea62f025ec10c5cd4fcae.zip |
a few more todo comments
Diffstat (limited to 'lib/MooseX/NonMoose')
-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'); |