[ViewVC] Annotation of: cvs/Coro/eg/lwp

#!/usr/bin/perl

# this hack shows how one can overwrite IO::Socket::INET to provide
# non-blocking sockets by default. This makes lwp magically
# non-blocking. I hope.

{
   # this is all the required magic: we replace the constructor.
   use Coro::Socket;
   use IO::Socket::INET;
   sub IO::Socket::INET::new {
      shift; new Coro::Socket @_;
   };
}

use Coro;
use Coro::Event;
use LWP::Simple;

async {
   print "hi\n";
   get "http://localhost/";
   print "ho\n";

};

async {
   print "hi2\n";
   get "http://localhost/";
   print "ho2\n";
};

loop;
Revision:	1.2
Committed:	Sat Jul 28 01:41:58 2001 UTC (22 years, 10 months ago) by root
Branch:	MAIN
Changes since 1.1:	+3 -3 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	#!/usr/bin/perl
2
3	root	1.2	# this hack shows how one can overwrite IO::Socket::INET to provide
4			# non-blocking sockets by default. This makes lwp magically
5			# non-blocking. I hope.
6	root	1.1
7			{
8			# this is all the required magic: we replace the constructor.
9			use Coro::Socket;
10			use IO::Socket::INET;
11			sub IO::Socket::INET::new {
12			shift; new Coro::Socket @_;
13			};
14			}
15
16			use Coro;
17			use Coro::Event;
18			use LWP::Simple;
19
20			async {
21			print "hi\n";
22			get "http://localhost/";
23			print "ho\n";
24
25			};
26
27			async {
28			print "hi2\n";
29			get "http://localhost/";
30			print "ho2\n";
31			};
32
33			loop;