1 files changed, 41 insertions, 0 deletions
diff --git a/lib/Reaction/Types/Email.pm b/lib/Reaction/Types/Email.pm
new file mode 100644
index 0000000..0bf9adc
--- /dev/null
+++ b/lib/Reaction/Types/Email.pm
@@ -0,0 +1,41 @@
+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