1 |
root |
1.1 |
#!/usr/bin/perl |
2 |
|
|
|
3 |
|
|
# this hack shows how one can overwrite |
4 |
|
|
# IO::Socket::INET to provide non-blocking sockets by default. |
5 |
|
|
# this makes lwp magically non-blocking. I hope. |
6 |
|
|
|
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; |