use My::Types qw[typeA typeB typeZZY];

##</code><code>##

use My::Type::typeA;
use My::Type::typeB;
use My::Type::typeC;

##</code><code>##

use My::Types::Factory;

my $typeA = My::Type::Factory->new( 'TypeA' );
my $typeB = My::Type::Factory->new( 'TypeB' );
my $typeZZY = My::Type::Factory->new( 'TypeZZY' );

my $varTypeA = $typeA->new();
my $varTypeB = $typeB->new();
my $varTypeZZY = $type->new();