# Connector::Types
#
# Utility class containing customized Moose types and constraints
#
# Written by Martin Bartosch for the OpenXPKI project 2012
#
package Connector::Types;
use Moose;
use Moose::Util::TypeConstraints;
###########################################################################
# Types
subtype 'Connector::Types::Char'
=> as 'Str',
=> where { length($_) == 1 }
=> message { 'Exactly one character expected' };
# location for a connector
subtype 'Connector::Types::Location'
=> as 'Str';
# unique key for accessing records
subtype 'Connector::Types::Key'
=> as 'Str';
1;