Select Code to Download

sub name {
    my $self = shift;
    $self->{name} = shift, return $self if @_ == 1
    croak "Unknown arguments to name" if @_;
    return $self->{name};
}

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