Commit | Line | Data |
---|---|---|
9e72f0cf | 1 | #!/usr/bin/env perl |
2 | ||
3 | use strictures 1; | |
4 | use Object::Remote::Connector::STDIO; | |
5 | use Object::Remote; | |
6 | ||
ad4f54b2 | 7 | #$Object::Remote::Connection::DEBUG = 1; |
8 | ||
9e72f0cf | 9 | my $c = Object::Remote::Connector::STDIO->new->connect; |
10 | ||
ad4f54b2 | 11 | my $loop = Object::Remote->current_loop; |
12 | ||
13 | $c->on_close(sub { $loop->stop }); | |
14 | ||
15 | $loop->run; |