Select Code to Download

sub name {
  my $self = shift;
...
  $self->{_name} = $new_value if defined $new_value;
  return $self->{_name};
}

has 'name' => (
 is  => 'rw',
 isa => 'Str',
);