Property Accessor

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