sub name { my $self = shift; $self -> {NAME} = shift if (@_); return $self -> {NAME}; }