From 1eea6c2950e4affd68c83846fc7a65b435897098 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@lacunaexpanse.com>
Date: Wed, 10 Nov 2010 16:31:49 -0600
Subject: [PATCH] minor email validation

---
 lib/Lacuna/Verify.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Lacuna/Verify.pm b/lib/Lacuna/Verify.pm
index 05cbed1d..f86be3eb 100644
--- a/lib/Lacuna/Verify.pm
+++ b/lib/Lacuna/Verify.pm
@@ -4,7 +4,7 @@ use Moose;
 use utf8;
 no warnings qw(uninitialized);
 use Regexp::Common qw(RE_profanity);
-use Data::Validate::Email;
+use Email::Valid;
 
 has content => (
     is          => 'ro',
@@ -81,7 +81,7 @@ sub length_lt {
 
 sub is_email {
     my ($self) = @_;
-    return $self->ok(Data::Validate::Email::is_email(${$self->content}));
+    return $self->ok(Email::Valid->address(${$self->content}));
 }
 
 
-- 
2.51.2