6 package Test::MooseX::Types::Structured::IncorrectMessage;
9 use MooseX::Types::Moose qw(Str Int);
10 use MooseX::Types::Structured qw(Tuple Dict);
11 use MooseX::Types -declare => [qw(WrongMessage MyInt)];
15 message { 'Oh, my Int!' };
18 as Dict[name=>Str, age=>MyInt];
35 skip 'Deeper Error Messges not yet supported', 1,1;
38 Test::MooseX::Types::Structured::IncorrectMessage->new(%init_args),