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