| … | |
… | |
| 22 | on_error => sub { print "Client connection error: $host:$port: $!\n" } |
22 | on_error => sub { print "Client connection error: $host:$port: $!\n" } |
| 23 | ); |
23 | ); |
| 24 | |
24 | |
| 25 | $hdl->push_write ("Hello!\015\012"); |
25 | $hdl->push_write ("Hello!\015\012"); |
| 26 | |
26 | |
| 27 | $hdl->push_read_line (sub { |
27 | $hdl->push_read (line => sub { |
| 28 | my (undef, $line) = @_; |
28 | my (undef, $line) = @_; |
| 29 | print "Yay, got line: $line\n"; |
29 | print "Yay, got line: $line\n"; |
| 30 | $hdl->push_write ("Bye\015\012"); |
30 | $hdl->push_write ("Bye\015\012"); |
| 31 | $hdl->on_drain (sub { $hdl->fh->close; undef $hdl }); |
31 | $hdl->on_drain (sub { $hdl->fh->close; undef $hdl }); |
| 32 | }); |
32 | }); |
