Class::InsideOut 1.01 just hit CPAN.
After seeing Damian's "Sufficiently Advanced Technologies" presentation, I decided to add some automation for common cases. register() now blesses for you and even provides an anonymous scalar reference. A basic constructor is as simple as this:
sub new { register shift }
Going one step further, an optional and very simple constructor is provided on request that automatically initializes properties from the arguments to new(). A minimal Class::InsideOut-based class is now as easy as this:
package My::Class; use Class::InsideOut qw/ new id public private /; public name => my %name; private age => my %age; 1;