[catagits/Reaction.git] / lib / Reaction / Types / Email.pm

package Reaction::Types::Email;

use Moose::Util::TypeConstraints;
use Email::Valid;

subtype 'EmailAddress'
  => as 'NonEmptySimpleStr'
  => where { Email::Valid->address($_) }
  => message { "Must be a valid e-mail address" };

1;

=head1 NAME

Reaction::Types::Email

=head1 DESCRIPTION

=over 

=item * EmailAddress

=back

=head1 SEE ALSO

=over 

=item * L<Reaction::Types::Core>

=back

=head1 AUTHORS

See L<Reaction::Class> for authors.

=head1 LICENSE

See L<Reaction::Class> for the license.

=cut
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