http://www.perlmonks.org?node_id=1144055


in reply to Re: [Moose] extends(...) throws "Subroutine redefined" warnings
in thread [Moose] extends(...) throws "Subroutine redefined" warnings

The thought has passed my mind briefly, I think, but I rejected it because I do want to be able to just use MyClass; and automatically have SubClass available.

However, it turns out you're right: if I move use SubClass out of MyClass.pm it just works fine. So I've come up with this workaround:

# MyClass.pm package MyClass; use BaseClass; # load the base class use SubClass; # load the sub class (which now extends BaseClass) our @ISA = qw(BaseClass); # have all BaseClass methods work on MyClass 1;
# BaseClass.pm package BaseClass; use Moose; sub get_subclass_object { return SubClass->new; } 1;
# SubClass.pm package SubClass; use Moose; extends 'BaseClass'; 1;