From: Matt S Trout <mst@shadowcat.co.uk>
Date: Tue, 19 Jun 2012 14:23:34 +0000 (+0100)
Subject: sketch for slave node
X-Git-Tag: v0.001001~11
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a2434aabffbd0e7d170f2ab1180ec4244b4619a6;p=scpubgit%2FObject-Remote.git

sketch for slave node
---

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;