5 use if 'Mouse' eq 'Moose',
6 'Test::More' => skip_all => 'Moose does nots support strict constructor';
29 __PACKAGE__->meta->strict_constructor(1);
39 my $o = MyClass->new(foo => 1);
40 isa_ok($o, 'MyClass');
42 } 'correc use of the constructor';
45 my $o = MyClass->new(foo => 1, baz => 10);
46 isa_ok($o, 'MyClass');
48 } 'correc use of the constructor';
52 MyClass->new(foo => 1, hoge => 42);
56 MyClass->new(foo => 1, bar => 42);
57 } qr/\b bar \b/xms, "init_arg => undef";
61 MyClass->new(aaa => 1, bbb => 2, ccc => 3);
63 like $@, qr/\b aaa \b/xms;
64 like $@, qr/\b bbb \b/xms;
65 like $@, qr/\b ccc \b/xms;
68 MySubClass->new(aaa => 1, bbb => 2, ccc => 3);
70 like $@, qr/\b aaa \b/xms;
71 like $@, qr/\b bbb \b/xms;
72 like $@, qr/\b ccc \b/xms;
73 }, qw(MyClass MySubClass);