Select Code to Download

package Foo;
use fields qw(foo bar);
...
my Foo $foo = {};

$foo->{baz} = 42;

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