
MooX::Types::MooseLike::Email - Email address validation type constraint for Moo.

package MyClass; use Moo; use MooX::Types::MooseLike::Email qw/:all/; has 'email' => ( isa => EmailAddress, is => 'ro', required => 1 ); has 'message' => ( isa => EmailMessage, is => 'ro', required => 1 );

MooX::Types::MooseLike::Email is Moo type constraints which uses Email::Valid, Email::Valid::Loose and Email::Abstract to check for valid email addresses and messages.

An email address
An email address, which allows . (dot) before @ (at-mark)
An object, which is a Mail::Internet, MIME::Entity, Mail::Message, Email::Simple or Email::MIME

use Scalar::Util qw(blessed);
has 'message' => (
is => 'ro',
isa => EmailMessage,
required => 1,
coerce => sub {
return ( $_[0] and blessed( $_[0] ) and blessed( $_[0] ) ne 'Regexp' )
? $_[0]
: Email::Simple->new( $_[0] );
},
);

hayajo <hayajo@cpan.org>

MooX::Types::MooseLike, MooseX::Types::Email, MooseX::Types::Email::Loose

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.