This sounds an awful lot like a factory. Why not have a Types::Factory class, create an instance of it, then do something like my $typeA = $factory->new(type => 'TypeA', ...);? That not only is simple, keeps from you from making AUTOLOAD mistakes (the first being using the damn thing), and allows for options like:

my %types;
foreach my $type (map { "type$_" } qw(A B C D E))
{
    $types{$type} = $factory->new(type => $type, ...);
}
[download]

Keep

It

Simple,

Stupid

Second-best piece of advice my Dad ever gave me.

------
We are the carpenters and bricklayers of the Information Age.

The idea is a little like C++ templates, except not quite so brain-meltingly complicated. -- TheDamian, Exegesis 6

Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.