my $obj = Class->new( -foo => 123 ) or die $@;
my $obj = Class->new( -foo => 123 ) or print $@;