package t::Object::Hash;
use strict;
use Class::InsideOut qw( public register );
public name => my %name;
public weight => my %weight;
sub new { register( bless {}, shift ) }
1;
package t::Object::Hash;
use strict;
use Class::InsideOut qw( public register );
public name => my %name;
public weight => my %weight;
sub new { register( bless {}, shift ) }
1;