[catagits/CatalystX-Declare.git] / t / lib / TestApp / Types.pm

package TestApp::Types;
use MooseX::Types -declare => [qw( NotFoo NotBar )];
use MooseX::Types::Moose qw( Str );

subtype NotFoo, as Str, where { $_ ne 'foo' };
subtype NotBar, as Str, where { $_ ne 'bar' };

1;
Commit	Line	Data
392e5076	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;