4 use Test::More tests => 7;
24 my $object = Class->new({x => 1, y => 2, z => 3});
30 Class->new('non-hashref scalar');
31 } qr/Single parameters to new\(\) must be a HASH ref/;
35 } qr/Single parameters to new\(\) must be a HASH ref/;
37 Class->meta->make_immutable;
41 } qr/Single parameters to new\(\) must be a HASH ref/;
44 Class->new(Class->new);
45 } qr/Single parameters to new\(\) must be a HASH ref/;