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};
}

##</code><code>##

package Foo::Bar;
use Alter ego => {};
use strict;
use warnings;

sub new {
    my $class = shift;
    @_ % 2 and die "odd number of elements in \@_, aborted";
    my %args  = @_;
    my $self  = \do { my $obj };
    bless $self, $class;
    ego($self)->{_name} = $args{name} if $args{name};
    return $self;
}

sub name {
    my $self = shift;
    defined( ego $self) or die "not a valid object";
    return ego($self)->{_name}
}

package main;
my $bar = Foo::Bar->new( name => 'Bob Lambert' );

print "Name of my object " . $bar->name    . "\n"; # method call
print "Name from my hash " . $bar->{_name} . "\n"; # hash key
__END__
Name of my object Bob Lambert
Not a HASH reference at - line 23.