| … | … | ||
|---|---|---|---|
| 21 | on_eof => sub { print "received eof\n"; undef $hdl } | 21 | on_eof => sub { print "received eof\n"; undef $hdl } |
| 22 | ); | 22 | ); |
| 23 | 23 | ||
| 24 | $hdl->push_write ("GET / HTTP/1.0\015\012\015\012"); | 24 | $hdl->push_write ("GET / HTTP/1.0\015\012\015\012"); |
| 25 | 25 | ||
| 26 | $hdl->push_read_line (sub { | 26 | $hdl->push_read (line => sub { |
| 27 | my ($hdl, $line) = @_; | 27 | my ($hdl, $line) = @_; |
| 28 | print "Yay, got line: $line\n"; | 28 | print "Yay, got line: $line\n"; |
| 29 | $cv->broadcast; | 29 | $cv->broadcast; |
| 30 | }); | 30 | }); |
| 31 | 31 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |