From: Matt S Trout <mst@shadowcat.co.uk>
Date: Tue, 15 Nov 2011 01:07:42 +0000 (+0000)
Subject: remove tak-repl - 'tak repl' subcommand replaces it
X-Git-Tag: v0.001001~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=59db8ee2ee981479c7b721a9bfef30a7d92a2032;p=scpubgit%2FTak.git

remove tak-repl - 'tak repl' subcommand replaces it
---

diff --git a/bin/tak-repl b/bin/tak-repl
deleted file mode 100644
index d6abb6b..0000000
--- a/bin/tak-repl
+++ /dev/null
@@ -1,31 +0,0 @@
-#!/usr/bin/env perl
-
-use Tak::Client;
-use Tak::Router;
-use Tak::REPL;
-use strictures 1;
-
-my $iclient = Tak::Client->new(service => Tak::Router->new);
-
-my $rclient;
-
-if (my $on = $ARGV[0]) {
-  $iclient->curry('meta')->do(register => connector => 'Tak::ConnectorService');
-  my @path = $iclient->curry('connector')->do(create => $ARGV[0]);
-  $rclient = $iclient->curry('connector', 'connection', @path, 'remote');
-  my $lclient = $iclient->curry('connector', 'connection', @path, 'local');
-  $lclient->curry('meta')->do(register => module_sender => 'Tak::ModuleSender');
-  $rclient->curry('meta')->do(
-    register => module_loader => 'Tak::ModuleLoader',
-    expose => { module_sender => [ 'remote', 'module_sender' ] }
-  );
-  $rclient->curry('module_loader')->do('enable');
-} else {
-  $rclient = $iclient;
-}
-
-$rclient->curry('meta')->do(register => eval => 'Tak::EvalService');
-
-my $repl = Tak::REPL->new(client => $rclient->curry('eval'));
-
-$repl->run;