{ package FooBar;
  use fields qw( foo bar );
  sub new { fields::new(shift) }
}

my $ref = new FooBar;

$ref->{foo} = 1; # Okay
$ref->{quv} = 2; # Kablooie!