=head1 NAME Coro::LWP - make LWP non-blocking - as much as possible =head1 SYNOPSIS use Coro::LWP; # afterwards LWP should not block =head1 DESCRIPTION This module tries to make L<LWP|LWP> non-blocking with respect to other coroutines as much as possible, and with whatever means it takes. LWP really tries very hard to be blocking, so this module had to be very invasive and must be loaded very early to take the proper effect. Here is what it currently does (future versions of LWP might require different tricks): =over 4 =item It loads Coro::Select, overwriting the perl C<select> builtin I<globally>. This is necessary because LWP calls select quite often for timeouts and who-knows-what. Impact: everybody else uses this (slower) version of select, too. It should be quite compatible to perls builtin select, though. =item It overwrites Socket::inet_aton with Coro::Util::inet_aton. This is necessary because LWP might (and does) try to resolve hostnames this way. Impact: likely little, the two functions should be pretty equivalent. =item It replaces the base class of Net::HTTP, Net::FTP, Net::NNTP. This is necessary because LWP does not always use select to see wether a filehandle can be read/written without blocking, so the base class C<IO::Socket::INET> needs to be replaced by C<Coro::Socket>. Impact: Coro::Socket is not at all compatible to IO::Socket::INET. While it duplicates some undocumented functionality required by LWP, it does not have all the methods of IO::Socket::INET and might act quite differently in practise. Also, protocols other than the above mentioned will still block, at least some of the time. =back All this likely makes other libraries than just LWP not block, but thats just a side effect you cannot rely on. Increases parallelism is not supported by all libraries, some might cache data globally. =cut package Coro::LWP; use strict; use Coro::Select; use Coro::Util; use Coro::Socket; use Socket; use IO::Socket::INET; use Net::HTTP; use Net::FTP; use Net::NNTP; our $VERSION = '0.9'; *Socket::inet_aton = \&Coro::Util::inet_aton; for (@Net::HTTP::ISA, @Net::FTP::ISA, @Net::NTTP::ISA) { $_ = Coro::LWP::Socket:: if $_ eq IO::Socket::INET::; } package Coro::LWP::Socket; use base Coro::Socket::; sub new { my $self = shift; $self->SUPER::new (@_, partial => 1) } 1; =head1 AUTHOR Marc Lehmann <schmorp@schmorp.de> http://home.schmorp.de/ =cut