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 print { $c->send_to_fh } "Shere\n";
  16
  17 $loop->run;