BEGIN {
eval "require MooseX::StrictConstructor; use Test::Exception; 1;";
- plan skip_all => 'This test requires MooseX::StrictConstructor and Test::Exception'
+ plan skip_all =>
+ 'This test requires MooseX::StrictConstructor and Test::Exception'
if $@;
}
use MooseX::Singleton;
use MooseX::StrictConstructor;
- has 'attrib' =>
- is => 'rw';
+ has 'attrib' => is => 'rw';
}
throws_ok {
- MySingleton->new( bad_name => 42 )
+ MySingleton->new( bad_name => 42 );
}
-qr/Found unknown attribute/,
-'singleton class also has a strict constructor';
+qr/Found unknown attribute/, 'singleton class also has a strict constructor';