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