[gitmo/MooseX-Types.git] / t / lib / TestLibrary2.pm

package TestLibrary2;

use MooseX::Types
    -declare => [qw( MTFNPY NonEmptyStr )];
use MooseX::Types::Moose 'Str';

subtype MTFNPY,
    as Str,
    where { length $_ },
    message { 'MTFNPY must not be empty' };

subtype NonEmptyStr,
    as Str,
    where { length $_ },
    message { 'Str must not be empty' };

1;
Commit	Line	Data
ca9d7442	1	package TestLibrary2;
	2
	3	use MooseX::Types
	4	-declare => [qw( MTFNPY NonEmptyStr )];
	5	use MooseX::Types::Moose 'Str';
	6
	7	subtype MTFNPY,
	8	as Str,
	9	where { length $_ },
	10	message { 'MTFNPY must not be empty' };
	11
	12	subtype NonEmptyStr,
	13	as Str,
	14	where { length $_ },
	15	message { 'Str must not be empty' };
	16
	17	1;