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

public name => our %name;

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