complete MooseX::Types port

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

diff --git a/lib/Reaction/Types/Email.pm b/lib/Reaction/Types/Email.pm
index a82d16f..01660a3 100644 (file)
--- 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;