X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FReaction%2FTypes%2FEmail.pm;h=01660a3f938c45714b15786dfdef46068c11ff40;hb=588a35ac5c72d42a82ffff5514b4d6eebe0d0b8f;hp=0bf9adcdf4f1916feff3f78206ad2b56bd77fc87;hpb=7adfd53f17f66ffe93763e944ed1d3fc52a369dc;p=catagits%2FReaction.git

diff --git a/lib/Reaction/Types/Email.pm b/lib/Reaction/Types/Email.pm
index 0bf9adc..01660a3 100644
--- a/lib/Reaction/Types/Email.pm
+++ b/lib/Reaction/Types/Email.pm
@@ -1,12 +1,15 @@
 package Reaction::Types::Email;
 
-use Moose::Util::TypeConstraints;
+use MooseX::Types
+    -declare => [qw/EmailAddress/];
+
+use Reaction::Types::Core 'NonEmptySimpleStr';
 use Email::Valid;
 
-subtype 'EmailAddress'
-  => as 'NonEmptySimpleStr'
-  => where { Email::Valid->address($_) }
-  => message { "Must be a valid e-mail address" };
+subtype EmailAddress,
+  as NonEmptySimpleStr,
+  where { Email::Valid->address($_) },
+  message { "Must be a valid e-mail address" };
 
 1;