package My::Class;
use Scalar::Util qw( refaddr );

# package hash for inside-out properties, instead of lexical
our %name;

sub new {
  my $class = shift;
  bless {}, $class;
}

sub name {
  my $self = shift;
  if (@_) { $name{ refaddr $self } = shift }
  return $name{ refaddr $self };
}