projects
/
scpubgit/Object-Remote.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
save sending fatnode repeatedly
[scpubgit/Object-Remote.git]
/
bin
/
object-remote-node
1
#!/usr/bin/env perl
2
3
use strictures 1;
4
use Object::Remote::Connector::STDIO;
5
use Object::Remote;
6
use CPS::Future;
7
8
my $c = Object::Remote::Connector::STDIO->new->connect;
9
10
$c->_set_is_ready(1);
11
12
my $loop = Object::Remote->current_loop;
13
14
my $f = CPS::Future->new;
15
16
$f->on_ready(sub { $loop->stop });
17
18
$c->on_close($f);
19
20
print { $c->send_to_fh } "Shere\n";
21
22
$loop->run;