sipwise-base/t/Types.pm

package Types;
use Sipwise::Base;
use Moose::Util::TypeConstraints qw(subtype as where);

subtype 'Place', as 'Str', where { /world/ };