bin/object-remote-slave

   1 #!/usr/bin/env perl
   2
   3 use strictures 1;
   4 use Object::Remote::Connector::UNIX;
   5 use Object::Remote;
   6
   7 my $c = Object::Remote::Connector::UNIX->new->connect($ARGV[0]);
   8
   9 $c->register_class_class_handler;
  10
  11 $c->remote_object(id => 'master')->register_slave(
  12   pid => $$,
  13   argv => \@ARGV
  14 )->run;