[scpubgit/Object-Remote.git] / bin / object-remote-slave

#!/usr/bin/env perl

use strictures 1;
use Object::Remote::Connector::UNIX;
use Object::Remote;

my $c = Object::Remote::Connector::UNIX->new->connect($ARGV[0]);

my $cch = $c->new_class_call_handler;

$c->new_remote(id => 'master')->register_slave(
  class_call_handler => $cch,
  pid => $$,
  argv => \@ARGV
)->run;
Commit	Line	Data
a2434aab	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;