projects
/
scpubgit/Object-Remote.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
638b6bc5d2b5898d6c749ce4c620cdbf94432280
[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
7
#$Object::Remote::Connection::DEBUG = 1;
8
9
my $c = Object::Remote::Connector::STDIO->new->connect;
10
11
my $loop = Object::Remote->current_loop;
12
13
$c->on_close(sub { $loop->stop });
14
15
$loop->run;