Mail-DMARC-Iterator

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "ExtUtils::MakeMaker" : "0"
         }
      },
      "configure" : {
         "requires" : {
            "ExtUtils::MakeMaker" : "0"
         }
      },
      "runtime" : {
         "requires" : {
            "IO::Socket::SSL::PublicSuffix" : "0",
            "Mail::DKIM::Iterator" : "1.002",
            "Mail::SPF::Iterator" : "1.115"
         }
      }
   },
   "release_status" : "stable",
   "resources" : {
      "bugtracker" : {
         "web" : "https://github.com/noxxi/p5-mail-dmarc-iterator/issues"
      },

META.yml  view on Meta::CPAN

license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: Mail-DMARC-Iterator
no_index:
  directory:
    - t
    - inc
requires:
  IO::Socket::SSL::PublicSuffix: '0'
  Mail::DKIM::Iterator: '1.002'
  Mail::SPF::Iterator: '1.115'
resources:
  bugtracker: https://github.com/noxxi/p5-mail-dmarc-iterator/issues
  homepage: https://github.com/noxxi/p5-mail-dmarc-iterator
  license: http://dev.perl.org/licenses/
  repository: https://github.com/noxxi/p5-mail-dmarc-iterator
version: '0.014'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

Makefile.PL  view on Meta::CPAN

use strict;
use ExtUtils::MakeMaker 6.46;
require v5.10.0;

my @public_suffix = qw(
    IO::Socket::SSL::PublicSuffix
    Domain::PublicSuffix
    Mozilla::PublicSuffix
);
for(@public_suffix) {
    eval "require $_" or next;
    @public_suffix = ($_);
    last;
}

WriteMakefile(

lib/Mail/DMARC/Iterator.pm  view on Meta::CPAN

		last
	    }
	}
	return ($result,\%hash);
    }
}

{
    # Define function organizational_domain based on which package we have to
    # calculate the public suffix.
    if (eval { require IO::Socket::SSL::PublicSuffix }) {
	my $ps = IO::Socket::SSL::PublicSuffix->default;
	*organizational_domain = sub {
	    return $ps->public_suffix($_[0],1) || $_[0];
	};
    } elsif (eval { require Domain::PublicSuffix }) {
	my $ps = Domain::PublicSuffix->new;
	*organizational_domain = sub {
	    return $ps->get_root_domain($_[0]) || $_[0];
	};

    } elsif (eval { require Mozilla::PublicSuffix }) {