enable caching

parent 55712d66
......@@ -36,8 +36,10 @@ $opt->{'type'} ||= ('help' eq $opt->{'handle'} ? 'help' : ($url->path_segments
printf(STDERR "Testing %s, type '%s'...\n", $ARGV[0], $opt->{'type'});
my $rdap = Net::RDAP->new;
$ENV{'NET_RDAP_UA_DEBUG'} = $opt->{'debug'};
my $rdap = Net::RDAP->new(
'use_cache' => 1,
'debug' => $opt->{'debug'}
);
$rdap->ua->proxy([qw(http https)], $opt->{'proxy'}) if ($opt->{'proxy'});
my $resolver = Net::DNS::Resolver->new;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment