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'); |