X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=lib%2FObject%2FRemote%2FNode.pm;h=dc2563c717e3659411fcbb2d2e4b82159eb70613;hp=7190359d5c1d03c983da3dd4a41311a0759ea7ca;hb=12fb4a80d68ad14c18a35f60cc6d8a671f728ac9;hpb=befabdee3a3a75da8dd2fd21a2a6c80d8ed0bcff diff --git a/lib/Object/Remote/Node.pm b/lib/Object/Remote/Node.pm index 7190359..dc2563c 100644 --- a/lib/Object/Remote/Node.pm +++ b/lib/Object/Remote/Node.pm @@ -6,20 +6,13 @@ use Object::Remote; use CPS::Future; sub run { - my $c = Object::Remote::Connector::STDIO->new->connect; $c->register_class_call_handler; - $c->ready_future->done; - my $loop = Object::Remote->current_loop; - my $f = CPS::Future->new; - - $f->on_ready(sub { $loop->want_stop }); - - $c->on_close($f); + $c->on_close->on_ready(sub { $loop->want_stop }); print { $c->send_to_fh } "Shere\n";