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

##</code><code>##

package My::Class;
use Class::InsideOut qw( public register );

public name => our %name;

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