package Foo::Bar;

sub new {
    my $class = shift;
    my %args  = @_;

    my $self = {};
    bless $self, $class;

    $self->{_name} = $args{name} if $args{name};

    return $self;
}

sub name {
   my $self = shift;

   return $self->{_name};
}