package Body;
use Moose;
has 'eyes' => ( 
	is=> 'rw',
	isa=> 'Eyes',
	metaclass=> 'MooseX::NestedPackage',
	class=> q{
	    has 'color'=> (is=> 'rw', default=> 'blue');
	}
);

package main;
my $body=new Body(); ## gets new eyes too
print $body->eyes;   ## and they're blue
$body->eyes(new Eyes(color=>'brown')); 
$body->eyes->color('green');