5 use if 'Mouse' eq 'Moose',
6 'Test::More' => skip_all => 'Moose does nots support strict constructor';
28 __PACKAGE__->meta->make_immutable(strict_constructor => 1);
32 my $o = MyClass->new(foo => 1);
33 isa_ok($o, 'MyClass');
35 } 'correc use of the constructor';
38 my $o = MyClass->new(foo => 1, baz => 10);
39 isa_ok($o, 'MyClass');
41 } 'correc use of the constructor';
45 MyClass->new(foo => 1, hoge => 42);
49 MyClass->new(foo => 1, bar => 42);
50 } qr/\b bar \b/xms, "init_arg => undef";
54 MyClass->new(aaa => 1, bbb => 2, ccc => 3);
55 } qr/\b aaa \b/xms, $@;
58 MyClass->new(aaa => 1, bbb => 2, ccc => 3);
59 } qr/\b bbb \b/xms, $@;
62 MyClass->new(aaa => 1, bbb => 2, ccc => 3);
63 } qr/\b ccc \b/xms, $@;