Commit | Line | Data |
7adfd53f |
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 |