Property Accessor/Mutator

• A read-only property

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

• A read/write property

sub name {
  my $self = shift;

  if(@_) {
    $self->{name} = shift;
  }

  return $self->{name};
}