package A2B::Type; use A2B::Table::Element; use strict; use vars qw(@ISA); @ISA = qw(A2B::Table::Element); use overload '""' => sub { return $_[0]->{type}; }; 1