diff options
Diffstat (limited to 'lib/MooseX/NonMoose.pm')
| -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 0db4fb6..1d76f52 100644 --- a/lib/MooseX/NonMoose.pm +++ b/lib/MooseX/NonMoose.pm @@ -21,6 +21,9 @@ sub extends { # we're calling it on my $super_new = $caller_meta->find_next_method_by_name('new'); + # if we're trying to extend a moose class, just do nothing + return if $super_new->package_name eq 'Moose::Object'; + if ($super_new->associated_metaclass->can('constructor_class')) { my $constructor_class_meta = Class::MOP::Class->initialize( $super_new->associated_metaclass->constructor_class |