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

public  name;
private age;

1;