X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=bin%2Fobject-remote-slave;fp=bin%2Fobject-remote-slave;h=4784ee5d44029738440f50a869bd6fe5af1671c1;hp=0000000000000000000000000000000000000000;hb=a2434aabffbd0e7d170f2ab1180ec4244b4619a6;hpb=eee9a5487590df4c2ead52b01435716afbd23fe5

diff --git a/bin/object-remote-slave b/bin/object-remote-slave
new file mode 100644
index 0000000..4784ee5
--- /dev/null
+++ b/bin/object-remote-slave
@@ -0,0 +1,15 @@
+#!/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;