NAME

LWP::Protocol::Hosts - Override LWP HTTP/HTTPS request's host like /etc/hosts

SYNOPSIS

use LWP::UserAgent;
use LWP::Protocol::Hosts;

LWP::Protocol::Hosts->register_host(
    'www.cpan.org' => '127.0.0.1',
);

LWP::Protocol::Hosts->enable_override;

# override request hosts with peer addr defined above
my $ua  = LWP::UserAgent->new;
my $res = $ua->get("http://www.cpan.org/");
print $res->content; # is same as "http://127.0.0.1/" content

DESCRIPTION

LWP::Protocol::Hosts is a module to override HTTP/HTTPS request peer addresses that uses LWP::UserAgent.

METHODS

register_host($host, $peer_addr)

LWP::Protocol::Hosts->register_host($host, $peer_addr);

Registers a pair of hostname and peer ip address.

# /etc/hosts
127.0.0.1    example.com

equals to:

LWP::Protocol::Hosts->regiter_hosts('example.com', '127.0.0.1');

enable_override

LWP::Protocol::Hosts->enable_override;
my $guard = LWP::Protocol::Hosts->enable_override;

Enables to override hook.

If called in a non-void context, returns a Guard object that automatically resets the override when it goes out of context.

disable_override

LWP::Protocol::Hosts->disable_override;

Disables to override hook.

If you use the guard interface described above, it will be automatically called for you.

AUTHOR

NAKAGAWA Masaki <[email protected]>

LICENSE

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

SEE ALSO

LWP::Protocol, LWP::Protocol::http, LWP::Protocol::https