package My::Class;

use InsideOut::Helper qw( bless );

sub new {
  my $class = shift;
  my $self = \do { my $scalar };
  bless $self, $class;
}


##</code><code>##

my $REGISTRY;

sub bless {
  &CORE::bless;
  $REGISTRY{ $_[1] }{ refaddr $_[0] } = $_[0];
  return $_[0];
}

##</code><code>##

my $NAME_OF{ id $self } = "Larry";

# instead of

my $NAME_OF{ refaddr $self } = "Larry";