# MyClass.pm
package MyClass;
use SubClass;
use Moose;

sub get_subclass_object {
    return SubClass->new;
}

1;

##</code><code>##

# SubClass.pm
package SubClass;
use Moose;

extends 'MyClass';

1;

##</code><code>##

$ perl -MMyClass -e 0
Subroutine get_subclass_object redefined at MyClass.pm line 5.

$