7 package Test::MooseX::Types::Structured::StringyBug;
10 use MooseX::Types::Moose qw(Str);
11 use MooseX::Types::Structured qw(Tuple Dict);
12 use Moose::Util::TypeConstraints;
14 subtype "TestStringTypes::SubType",
24 foo3 => "TestStringTypes::SubType",
34 "TestStringTypes::SubType",
45 attr2 => ['a', 2, 'c'],
49 Test::MooseX::Types::Structured::StringyBug->new(%init_args),
50 'Made a class with mixed constraint types',