6 use Test::Moose qw( with_immutable );
12 use MooseX::StrictConstructor;
14 has 'size' => ( is => 'rw' );
23 has 'thing' => ( is => 'rw' );
26 my @classes = qw( Standard );
30 exception { Standard->new( thing => 1, bad => 99 ) },
31 qr/unknown attribute.+: bad/,
32 'strict constructor applied from role blows up on unknown params'