# MyClass.pm package MyClass; use SubClass; use Moose; sub get_subclass_object { return SubClass->new; } 1;