It looks like that there is no upstream github repository... I wrote simple patch which ports this perl module to use Email::Address::XS. Patch is attached.
-- Pali Rohár pali.ro...@gmail.com
diff -Nurp Data-Validate-Email-0.06/Email.pm Data-Validate-Email-0.06/Email.pm --- Data-Validate-Email-0.06/Email.pm 2017-10-29 16:31:54.000000000 +0100 +++ Data-Validate-Email-0.06/Email.pm 2018-06-27 21:08:34.630821085 +0200 @@ -6,7 +6,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPOR require Exporter; use AutoLoader 'AUTOLOAD'; -use Email::Address; +use Email::Address::XS 1.01; use Data::Validate::Domain; @ISA = qw(Exporter); @@ -215,7 +215,7 @@ Returns the untainted address on success =item I<Notes, Exceptions, & Bugs> -This check uses Casey West's Email::Address module to do its validation. +This check uses L<Email::Address::XS> module to do its validation. The function does not make any attempt to check whether an address is genuinely deliverable. It only looks to see that the format is email-like. @@ -230,12 +230,9 @@ sub is_email_rfc822{ return unless defined($value); - #warn $Email::Address::mailbox; - my $address; - if($value =~ /^$Email::Address::mailbox$/){ - #warn $&; - $address = $&; + if(Email::Address::XS->parse($value)->is_valid()){ + ($address) = $value =~ m/^(.*)$/s; } return $address; diff -Nurp Data-Validate-Email-0.06/Makefile.PL Data-Validate-Email-0.06/Makefile.PL --- Data-Validate-Email-0.06/Makefile.PL 2017-10-29 16:18:29.000000000 +0100 +++ Data-Validate-Email-0.06/Makefile.PL 2018-06-27 21:13:26.604696534 +0200 @@ -7,7 +7,7 @@ WriteMakefile( 'DISTNAME' => 'Data-Validate-Email', 'AUTHOR' => 'Richard Sonnen (son...@richardsonnen.com)', 'PREREQ_PM' => { - 'Email::Address' => 0, + 'Email::Address::XS' => 1.01, 'Data::Validate::Domain' => 0.04, }, 'dist' => { diff -Nurp Data-Validate-Email-0.06/README Data-Validate-Email-0.06/README --- Data-Validate-Email-0.06/README 2017-10-29 16:18:29.000000000 +0100 +++ Data-Validate-Email-0.06/README 2018-06-27 21:13:12.204604030 +0200 @@ -102,7 +102,7 @@ FUNCTIONS Returns the untainted address on success, undef on failure. *Notes, Exceptions, & Bugs* - This check uses Casey West's Email::Address module to do its + This check uses Email::Address::XS module to do its validation. The function does not make any attempt to check whether an
signature.asc
Description: PGP signature