sub new { register shift }

##</code><code>##

package My::Class;
use Class::InsideOut qw/ new id public private /;

public  name => my %name;
private age  => my %age;

1;