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;