package LIMS::Local::Search::Types::Names;

use warnings;
use strict;

use Moose::Util::TypeConstraints;

subtype 'FirstName'
    => as 'Str'
#    => where { /^[a-zA-Z]+[- ]?[a-zA-Z]*$/ };
    => where { /^[0..9]$/ };

subtype 'LastName'
    => as 'Str'
    => where { /^[a-zA-Z]+[- ]?[a-zA-Z]+\s*,?([a-zA-Z]+|[a-zA-Z]+\.)?$/ };

1;