Select Code to Download

package My::Class;

...
  bless $self, $class;
}

my $REGISTRY;

...
  $REGISTRY{ $_[1] }{ refaddr $_[0] } = $_[0];
  return $_[0];
}

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

# instead of

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