Commit | Line | Data |
---|---|---|
9e72f0cf | 1 | #!/usr/bin/env perl |
2 | ||
3 | use strictures 1; | |
4 | use Object::Remote::Connector::STDIO; | |
5 | use Object::Remote; | |
dc28afe8 | 6 | use CPS::Future; |
9e72f0cf | 7 | |
ad4f54b2 | 8 | #$Object::Remote::Connection::DEBUG = 1; |
9 | ||
9e72f0cf | 10 | my $c = Object::Remote::Connector::STDIO->new->connect; |
11 | ||
ad4f54b2 | 12 | my $loop = Object::Remote->current_loop; |
13 | ||
dc28afe8 | 14 | my $f = CPS::Future->new; |
15 | ||
16 | $f->on_ready(sub { $loop->stop }); | |
17 | ||
18 | $c->on_close($f); | |
ad4f54b2 | 19 | |
47c83a13 | 20 | print { $c->send_to_fh } "Shere\n"; |
21 | ||
ad4f54b2 | 22 | $loop->run; |