The CPAN module Class::Factory encapsulates all this for you -- just tell your factory about the different implementations and type associated with each, then pass that type to the factory when you want a new object.