From c04fa8b27f9a4e9d8f12cc3a792d870677e62490 Mon Sep 17 00:00:00 2001 From: doy Date: Mon, 13 Apr 2009 23:49:09 -0500 Subject: add comment --- lib/MooseX/NonMoose.pm | 3 +++ 1 file changed, 3 insertions(+) (limited to 'lib') 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); -- cgit v1.2.3-54-g00ecf