Как настроить AnyEvent::DNS resolver по умолчанию?

Question

Как настроить AnyEvent::DNS по умолчанию, я хочу изменить max_outstanding, reuse, timeout, Есть переменная окружения $ENV{PERL_ANYEVENT_MAX_OUTSTANDING_DNS}а как поменять reuse а также timeout?

Answer 1

$ENV{PERL_ANYEVENT_MAX_OUTSTANDING_DNS} используется только в том случае, если используется преобразователь по умолчанию, поэтому вы должны использовать преобразователь по умолчанию, поэтому вы можете просто изменить преобразователь по умолчанию.

use AnyEvent::DNS qw( );

my $resolver = AnyEvent::DNS->new(
   untaint         => 1,
   max_outstanding => $ENV{PERL_ANYEVENT_MAX_OUTSTANDING_DNS}*1 || ...,
   reuse           => ...,
   timeout         => ...,
);

$ENV{PERL_ANYEVENT_RESOLV_CONF}
   ? $resolver->_load_resolv_conf_file($ENV{PERL_ANYEVENT_RESOLV_CONF})
   : $resolver->os_config;

$AnyEvent::DNS::RESOLVER = $resolver;