AnyEvent :: DNSリゾルバをデフォルトで設定するには？

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;