package Foo;
use fields qw(foo bar);

package main;

my Foo $foo = {};

$foo->{baz} = 42;

##</code><code>##

$ ./882116.pl
No such class field "baz" in variable $foo of type Foo at ./882116.pl line 8.