package Foo::Bar;
# (1) strict, warnings?
sub new {
    my %args = shift; # (2) first argument is class name.
                      # (3) shift? really? even if @_, then
                      #     odd number of elements in hash?

    my $self;         # (4) uninitialized scalar...
    bless $self;      # ... can't be blessed (not a reference)
                      # (5) not using 2-arg-bless? inheritance?
    if ($args{name}) { $self->{_name} } # (6) $self->{_name} /what/ ?

    return $self;
}

sub name {
   my $self = shift;

   return $self->{_name};
}