unquoted Reaction::Types

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

diff --git a/lib/Reaction/Types/Email.pm b/lib/Reaction/Types/Email.pm
index faa165f..a82d16f 100644 (file)
--- a/lib/Reaction/Types/Email.pm
+++ b/lib/Reaction/Types/Email.pm
@@ -6,8 +6,8 @@ use MooseX::Types
 use Reaction::Types::Core 'NonEmptySimpleStr';
 use Email::Valid;
 
-subtype 'EmailAddress'
-  => as 'NonEmptySimpleStr'
+subtype EmailAddress
+  => as NonEmptySimpleStr
   => where { Email::Valid->address($_) }
   => message { "Must be a valid e-mail address" };