##
my $proto = shift;
my $class = ref($proto) || $proto;
# stuff to create self
bless($self,$class);
##
##
sub new
{
my ($proto,$name,$type,$end) = @_;
my $class = ref($proto) || $proto;
return bless
{
name => $name,
type => $type,
end => $end,
attributes => {},
}, $class;
}