7 eval "require MooseX::StrictConstructor; use Test::Exception; 1;";
9 'This test requires MooseX::StrictConstructor and Test::Exception'
18 use MooseX::Singleton;
19 use MooseX::StrictConstructor;
21 has 'attrib' => ( is => 'rw' );
25 MySingleton->new( bad_name => 42 );
27 qr/Found unknown attribute/, 'singleton class also has a strict constructor';