| 1 | #!/opt/perl/bin/perl |
1 | #!/opt/perl/bin/perl |
|
|
2 | |
| 2 | use strict; |
3 | use strict; |
|
|
4 | |
| 3 | use AnyEvent::Impl::Perl; |
5 | use AnyEvent::Impl::Perl; |
| 4 | use AnyEvent; |
6 | use AnyEvent; |
| 5 | use AnyEvent::Socket; |
7 | use AnyEvent::Socket; |
|
|
8 | use AnyEvent::Handle; |
| 6 | |
9 | |
| 7 | unless ($ENV{PERL_ANYEVENT_NET_TESTS}) { |
10 | unless ($ENV{PERL_ANYEVENT_NET_TESTS}) { |
| 8 | print "1..0 # Skip PERL_ANYEVENT_NET_TESTS environment variable not set\n"; |
11 | print "1..0 # Skip PERL_ANYEVENT_NET_TESTS environment variable not set\n"; |
| 9 | exit 0; |
12 | exit 0; |
| 10 | } |
13 | } |
| … | |
… | |
| 14 | my $cv = AnyEvent->condvar; |
17 | my $cv = AnyEvent->condvar; |
| 15 | |
18 | |
| 16 | my $rbytes; |
19 | my $rbytes; |
| 17 | |
20 | |
| 18 | my $hdl; |
21 | my $hdl; |
| 19 | my $wo = AnyEvent::Util::tcp_connect ('www.google.com', 80, sub { |
22 | my $wo = tcp_connect 'www.google.com', 80, sub { |
| 20 | my ($sock) = @_; |
23 | my ($sock) = @_; |
| 21 | $hdl = |
24 | $hdl = |
| 22 | AnyEvent::Handle->new ( |
25 | AnyEvent::Handle->new ( |
| 23 | fh => $sock, |
26 | fh => $sock, |
| 24 | on_error => sub { |
27 | on_error => sub { |
| … | |
… | |
| 55 | }); |
58 | }); |
| 56 | }); |
59 | }); |
| 57 | |
60 | |
| 58 | $hdl->push_write ("GET http://www.google.com/ HTTP/1.0\015\012\015\012"); |
61 | $hdl->push_write ("GET http://www.google.com/ HTTP/1.0\015\012\015\012"); |
| 59 | |
62 | |
| 60 | }, sub { |
63 | }; |
| 61 | warn "error on connect: $!"; |
|
|
| 62 | }, 10); |
|
|
| 63 | |
64 | |
| 64 | $cv->wait; |
65 | $cv->wait; |
