4 use Test::More tests => 7;
22 my $object = Class->new({x => 1, y => 2, z => 3});
28 Class->new('non-hashref scalar');
29 } qr/Single parameters to new\(\) must be a HASH ref/;
33 } qr/Single parameters to new\(\) must be a HASH ref/;
35 Class->meta->make_immutable;
38 Class->new('non-hashref scalar');
39 } qr/Single parameters to new\(\) must be a HASH ref/;
43 } qr/Single parameters to new\(\) must be a HASH ref/;