sub name {
    return @_ ? $self->{name}
              : $self->{name} = $_[0];
}

##</code><code>##

sub initialize {
    my $self = shift;
    return $self->set(@_);
}

##</code><code>##

Foo->define_attributes(
    attr1 => 'NUM',
    attr2 => 'HASH',
    attr3 => 'STRING',
);