use Class::InsideOut qw( register public );
 
  public name => my %name;
 
  sub new { register( shift ) }