#! perl -slw use strict; use My::Types; my $typeA = new TypeA; #### package TypeA; *AUTOLOAD = \&My::Type::AUTOLOAD; #### ... use My::Types; my $typeA = new My::Types::TypeA;
## package TypeA; *AUTOLOAD = \&My::Type::AUTOLOAD; ##
## ... use My::Types; my $typeA = new My::Types::TypeA;