-sub read_lines {
- my $engine = shift;
-
- #
- # Read until we've got a full line -- if the engine sends part of
- # a line and then stops we're pretty much hosed, but that should
- # never happen.
- #
- while ($engine->{'readbuf'} !~ /\n/) {
- my $tmp;
- my $ret = sysread $engine->{'read'}, $tmp, 4096;
+sub _anyevent_handle_line {
+ my ($engine, $handle, $line) = @_;