6 use MooseX::Types::Parameterizable qw(Parameterizable);
7 use MooseX::Types::Moose qw(Int Str);
9 ok my $varchar = (subtype as Parameterizable[Str, Int], where { $_[1] > length($_[0]); }),
12 ok $varchar->parameterize(5)->check('aaa');
13 ok !$varchar->parameterize(5)->check('aaaaa');