sub name {
  my $self = shift;
  $self->set_name(@_) if @_; # I forgot the return!
  return $self->{name};
}

sub set_name {
  my $self = shift;
  $self->{name} = shift;
  return $self;
}