1 use Test::More tests=>5;
2 use MooseX::Types::Structured qw(Tuple slurpy);
3 use MooseX::Types qw(Str Object);
5 use_ok 'MooseX::Meta::TypeConstraint::Structured';
6 use_ok 'Moose::Util::TypeConstraints';
8 ok my $int = find_type_constraint('Int') => 'Got Int';
9 ok my $str = find_type_constraint('Str') => 'Got Str';
10 ok my $obj = find_type_constraint('Object') => 'Got Object';
11 ok my $arrayref = find_type_constraint('ArrayRef') => 'Got ArrayRef';
20 warn 'sdfsdfsdfsdfsdf';
27 return bless {a=>1}, $class;
32 my $dependent = Dependent->new($int);