[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]);

$c->register_class_class_handler;

$c->remote_object(id => 'master')->register_slave(
  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
ffc818dd	9	$c->register_class_class_handler;
a2434aab	10
ffc818dd	11	$c->remote_object(id => 'master')->register_slave(
a2434aab	12	pid => $$,
	13	argv => \@ARGV
	14	)->run;