t/lib/TestApp/Types.pm

   1 package TestApp::Types;
   2 use MooseX::Types -declare => [qw( NotFoo NotBar )];
   3 use MooseX::Types::Moose qw( Str );
   4
   5 subtype NotFoo, as Str, where { $_ ne 'foo' };
   6 subtype NotBar, as Str, where { $_ ne 'bar' };
   7
   8 1;