diff options
| author | doy <doy@tozt.net> | 2009-04-13 23:49:09 -0500 |
|---|---|---|
| committer | doy <doy@tozt.net> | 2009-04-13 23:49:09 -0500 |
| commit | c04fa8b27f9a4e9d8f12cc3a792d870677e62490 (patch) | |
| tree | e8949bb0e8e08931bd31953408d1e1aff67d2620 /lib | |
| parent | 04bfe2104d25bf94e3780f2bd9d74451d2b24608 (diff) | |
| download | moosex-nonmoose-c04fa8b27f9a4e9d8f12cc3a792d870677e62490.tar.gz moosex-nonmoose-c04fa8b27f9a4e9d8f12cc3a792d870677e62490.zip | |
add comment
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/MooseX/NonMoose.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/MooseX/NonMoose.pm b/lib/MooseX/NonMoose.pm index 7a6aec6..778adf8 100644 --- a/lib/MooseX/NonMoose.pm +++ b/lib/MooseX/NonMoose.pm @@ -13,6 +13,9 @@ sub extends { push @superclasses, 'Moose::Object' unless grep { $_->isa('Moose::Object') } @superclasses; + # XXX: should move the validation out of Moose::extends and into + # MMC::superclasses, and then just call that directly. will still need to + # check that @_ isn't empty in that case. Moose::extends($caller, @superclasses); my $caller_meta = Class::MOP::Class->initialize($caller); |