NOLookup

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         "requires" : {
            "Class::Accessor::Chained" : "0",
            "Data::Dumper" : "0",
            "Data::Validate::Domain" : "0",
            "Data::Validate::IP" : "0",
            "Encode" : "0",
            "Getopt::Long" : "0",
            "Getopt::Std" : "0",
            "IO::Socket" : "0",
            "IO::Socket::INET6" : "0",
            "IO::Socket::SSL" : "0",
            "JSON" : "0",
            "List::MoreUtils" : "0",
            "Net::DNS::Domain" : "0",
            "Net::IP" : "0",
            "Net::LibIDN" : "0",
            "Net::RDAP" : "0",
            "Net::RDAP::EPPStatusMap" : "0",
            "Net::RDAP::Error" : "0",
            "POSIX" : "0",
            "Pod::Usage" : "0",

Makefile.PL  view on Meta::CPAN

  "PREREQ_PM" => {
    "Class::Accessor::Chained" => 0,
    "Data::Dumper" => 0,
    "Data::Validate::Domain" => 0,
    "Data::Validate::IP" => 0,
    "Encode" => 0,
    "Getopt::Long" => 0,
    "Getopt::Std" => 0,
    "IO::Socket" => 0,
    "IO::Socket::INET6" => 0,
    "IO::Socket::SSL" => 0,
    "JSON" => 0,
    "List::MoreUtils" => 0,
    "Net::DNS::Domain" => 0,
    "Net::IP" => 0,
    "Net::LibIDN" => 0,
    "Net::RDAP" => 0,
    "Net::RDAP::EPPStatusMap" => 0,
    "Net::RDAP::Error" => 0,
    "POSIX" => 0,
    "Pod::Usage" => 0,

Makefile.PL  view on Meta::CPAN

my %FallbackPrereqs = (
  "Class::Accessor::Chained" => 0,
  "Data::Dumper" => 0,
  "Data::Validate::Domain" => 0,
  "Data::Validate::IP" => 0,
  "Encode" => 0,
  "Getopt::Long" => 0,
  "Getopt::Std" => 0,
  "IO::Socket" => 0,
  "IO::Socket::INET6" => 0,
  "IO::Socket::SSL" => 0,
  "JSON" => 0,
  "List::MoreUtils" => 0,
  "Net::DNS::Domain" => 0,
  "Net::IP" => 0,
  "Net::LibIDN" => 0,
  "Net::RDAP" => 0,
  "Net::RDAP::EPPStatusMap" => 0,
  "Net::RDAP::Error" => 0,
  "POSIX" => 0,
  "Pod::Usage" => 0,

lib/NOLookup/RDAP/RDAPLookup.pm  view on Meta::CPAN

	if ($args->{force_ipv} == 4) {
	    # Use ipv4 only sockets and addresses
	    print STDERR "RDAPLookup: Connecting forcibly over ipv4\n" if ($args->{debug});
	    $ua->ssl_opts(Domain => AF_INET);
	} elsif ($args->{force_ipv} == 6) {
	    print STDERR "RDAPLookup: Connecting forcibly over ipv6\n" if ($args->{debug});
	    $ua->ssl_opts(Domain => AF_INET6);
	}
	# Also, on force_ipv, disable ssl verify
	use IO::Socket::SSL;
	$ua->ssl_opts( verify_hostname => 0, SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE);
	print STDERR "RDAPLookup: Connecting forcibly, also turn of SSL verify mode\n" if ($args->{debug});
    }

    return $ro;
    
}

=head2 lookup

Do an RDAP lookup.

t/04test_rdap.t  view on Meta::CPAN

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More 'no_plan';
use Encode;
use NOLookup::RDAP::RDAPLookup
    qw / $RDAP_LOOKUP_ERR_NO_MATCH $RDAP_LOOKUP_ERR_FORBIDDEN /;

# Use ipv4 only sockets for easier config
#use IO::Socket::SSL 'inet4';

use Data::Dumper;
$Data::Dumper::Indent=1;

require_ok('NOLookup::RDAP::RDAPLookup');

my $debug = 0;

my %ehandles;
my %rhandles;