use Class::InsideOut qw( register public );