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=faa165f258eb3edf25cb1fae82e4dd679fdfe942;hpb=e739c9a211e3a55714904f6c75843e8902226214;p=catagits%2FReaction.git

diff --git a/lib/Reaction/Types/Email.pm b/lib/Reaction/Types/Email.pm
index faa165f..01660a3 100644
--- a/lib/Reaction/Types/Email.pm
+++ b/lib/Reaction/Types/Email.pm
@@ -6,10 +6,10 @@ use MooseX::Types
 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;