Added host A check for MX routine

Added in checking for valid A record for host if valid MX record not found.

1 files changed, 10 insertions, 0 deletions

diff --git a/lib/Email/Valid.pm b/lib/Email/Valid.pm
index 34008f4..c0616da 100644
--- a/lib/Email/Valid.pm
+++ b/lib/Email/Valid.pm
@@ -146,6 +146,7 @@ sub _net_dns_query {
 
   my @mx_entries = Net::DNS::mx($Resolver, $host);
 
+  # Check for valid MX records for $host
   if (@mx_entries) {
     foreach my $mx (@mx_entries) {
       my $mxhost = $mx->exchange;
@@ -157,6 +158,15 @@ sub _net_dns_query {
     }
   }
 
+  # Chceck for A record for $host
+  my @a_rrs = Net::DNS::rr($Resolver, $host, 'A');
+  if (@a_rrs) {
+    foreach my $a_rr (@a_rrs) {
+      return 1 unless $a_rr->type ne 'A';
+    }
+  }
+
+  # MX Check failed
   return $self->details('mx');
 }