{
	package Test;
	use base qw(Class::InsideOut);	
	sub new { bless [], shift };
	my %foo : Field;
};