##
$ perl -MHash::AsObject -wE 'my $h = Hash::AsObject->new( foo => "bar" ); say $h->f0o; say 42'
Use of uninitialized value in say at -e line 1.
42
####
$ perl -MHash::AsObject -Mstrictures=2,1 -wE 'my $h = Hash::AsObject->new( foo => "bar" ); say $h->f0o; say 42'
Use of uninitialized value in say at -e line 1.