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 my $cch = $c->new_class_call_handler;
  10
  11 $c->new_remote(id => 'master')->register_slave(
  12   class_call_handler => $cch,
  13   pid => $$,
  14   argv => \@ARGV
  15 )->run;