Unverified Commit b092e3ee authored by Gavin Brown's avatar Gavin Brown
Browse files

enable caching

parent 55712d66
...@@ -36,8 +36,10 @@ $opt->{'type'} ||= ('help' eq $opt->{'handle'} ? 'help' : ($url->path_segments ...@@ -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'}); printf(STDERR "Testing %s, type '%s'...\n", $ARGV[0], $opt->{'type'});
my $rdap = Net::RDAP->new; my $rdap = Net::RDAP->new(
$ENV{'NET_RDAP_UA_DEBUG'} = $opt->{'debug'}; 'use_cache' => 1,
'debug' => $opt->{'debug'}
);
$rdap->ua->proxy([qw(http https)], $opt->{'proxy'}) if ($opt->{'proxy'}); $rdap->ua->proxy([qw(http https)], $opt->{'proxy'}) if ($opt->{'proxy'});
my $resolver = Net::DNS::Resolver->new; 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