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.