gistfile1.pl

package Foo;
use strict;
use warnings;

sub new {
  my $class = shift;

  my $self = {};
  $self->{"name"} = undef;

  return bless($self, $class);
}

sub name {
  my $self = shift;
  my $name = shift;

  if(defined($name)) {
    $self->{"name"} = $name;
  }
}

1;