lib/Reaction/Types/Email.pm

   1 package Reaction::Types::Email;
   2
   3 use Moose::Util::TypeConstraints;
   4 use Email::Valid;
   5
   6 subtype 'EmailAddress'
   7   => as 'NonEmptySimpleStr'
   8   => where { Email::Valid->address($_) }
   9   => message { "Must be a valid e-mail address" };
  10
  11 1;
  12
  13 =head1 NAME
  14
  15 Reaction::Types::Email
  16
  17 =head1 DESCRIPTION
  18
  19 =over
  20
  21 =item * EmailAddress
  22
  23 =back
  24
  25 =head1 SEE ALSO
  26
  27 =over
  28
  29 =item * L<Reaction::Types::Core>
  30
  31 =back
  32
  33 =head1 AUTHORS
  34
  35 See L<Reaction::Class> for authors.
  36
  37 =head1 LICENSE
  38
  39 See L<Reaction::Class> for the license.
  40
  41 =cut