7 use MooseX::Types::Parameterizable qw(Parameterizable);
8 use MooseX::Types::Moose qw(Int Str);
11 subtype as Parameterizable[Str, Int],
18 'got anonymouse type';
20 ok $varchar->parameterize(5)->check('aaa'),
23 ok !$varchar->parameterize(5)->check('aaaaa'),
26 ok !$varchar->parameterize(5)->check([1..3]),