no strict "refs";
my $self = bless [\%{"${caller}::FIELDS"}], $class;