6 use Test::More skip_all => 'The feature this test exercises is not yet written';
14 BEGIN { parameter T => { isa => 'Moose::Meta::TypeConstraint' } };
16 has 'val' => (is => 'ro', isa => T);
20 sub not_eq { ! (shift)->eq(shift) }
24 Scalar->meta->parameters,
25 { T => { isa => 'Moose::Meta::TypeConstraint' } },
26 '... got the right parameters in the role'
32 use Moose::Util::TypeConstraints;
34 with Scalar => { T => find_type_constraint('Int') };
36 sub eq { shift == shift }