NAME
    LWPx::ParanoidHandler - Handler for LWP::UserAgent that protects you
    from harm

SYNOPSIS
        use LWPx::ParanoidHandler;
        use LWP::UserAgent;

        my $ua = LWP::UserAgent->new();
        make_paranoid($ua);

        my $res = $ua->request(GET 'http://127.0.0.1/');
        # my $res = $ua->request(GET 'http://google.com/');
        use Data::Dumper; warn Dumper($res);
        warn $res->status_line;

DESCRIPTION
    LWPx::ParanoidHandler is clever firewall for LWP::UserAgent. This module
    provides a handler to protect a request to internal servers.

    It's useful to implement OpenID servers, crawlers, etc.

FUNCTIONS
    make_paranoid($ua[, $dns]);
        Make your LWP::UserAgent instance to paranoid.

        The $dns argument is instance of Net::DNS::Paranoid. It's optional.

FAQ
    How can I timeout per request?
        Yes, LWP::UserAgent does not timeouts per request.

        I think it's my job. But LWPx::ParanoidAgent do this.

        You can do this by following form using alarm():

            my $res = eval {
                local $SIG{ALRM} = sub { die "ALRM\n" };
                alarm(10);
                my $res = $ua->get($url);
                alarm(0);
                $res;
            };
            $res = HTTP::Response->new(500, 'Timeout') unless $res;

        And I recommend to use Furl. Furl can handle per-request timeout
        cleanly.

AUTHOR
    Tokuhiro Matsuno <tokuhirom AAJKLFJEF@ GMAIL COM>

SEE ALSO
    LWPx::ParanoidAgent have same feature as this module. But it's not
    currently maintain, and it's too hacky. LWPx::ParanoidHandler uses
    handler protocol provided by LWP::UserAgent, it's more safety.

    This module uses a lot of code taken from LWPx::ParanoidAgent, thanks.

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.