NAME
    Net::DNS::Paranoid - paranoid dns resolver

SYNOPSIS
        my $dns = Net::DNS::Paranoid->new();
        $dns->blocked_hosts([
            'mixi.jp',
            qr{\.dev\.example\.com$},
        ]);
        $dns->whitelisted_hosts([
            'twitter.com',
        ]);
        my ($addrs, $errmsg) = $dns->resolve('mixi.jp');
        if ($addrs) {
            print @$addrs, $/;
        } else {
            die $errmsg;
        }

DESCRIPTION
    This is a wrapper module for Net::DNS.

    This module detects IP address / host names for internal servers.

METHODS
    my $dns = Net::DNS::Paranoid->new(%args)
        Create new instance with following parameters:

        timeout
            DNS lookup timeout in secs.

            Default: 15 sec.

        blocked_hosts: ArrayRef[Str|RegExp|Code]
            List of blocked hosts in string, regexp or coderef.

        whitelisted_hosts: ArrayRef[Str|RegExp|Code]
            List of white listed hosts in string, regexp or coderef.

        resolver: Net::DNS::Resolver
            DNS resolver object, have same interface as Net::DNS::Resolver.

    my ($addrs, $err) = $dns->resolve($name[, $start_time[, $timeout]])
        Resolve a host name using DNS. If it's bad host, then returns $addrs
        as undef, and $err is the reason in string.

        $start_time is a time to start your operation. Timeout value was
        counted from it. Default value is time().

        $timeout is a timeout value. Default value is "$dns-"timeout>.

USE WITH Furl
    You can use Net::DNS::Paranoid with Furl!

        use Furl::HTTP;
        use Net::DNS::Paranoid;

        my $resolver = Net::DNS::Paranoid->new();
        my $furl = Furl->new(
            inet_aton => sub {
                my ($host, $errmsg) = $resolver->resolve($_[0], time(), $_[1]);
                die $errmsg unless $host;
                Socket::inet_aton($host->[0]);
            }
        );

USE WITH LWP
    I shipped LWPx::ParanoidHandler to wrap this module. Please use it.

THANKS TO
    Most of code was taken from LWPx::ParanoidAgent.

AUTHOR
    Tokuhiro Matsuno < tokuhirom @A gmail DOT. com>

LICENSE
    Copyright (C) Tokuhiro Matsuno

    This library is free software; you can redistribute it and/or modify it
    under the same terms as Perl itself.