repl works again

[scpubgit/Tak.git] / bin / tak-repl

diff --git a/bin/tak-repl b/bin/tak-repl
index 2383219..d6abb6b 100644 (file)
--- a/bin/tak-repl
+++ b/bin/tak-repl
@@ -5,10 +5,27 @@ use Tak::Router;
 use Tak::REPL;
 use strictures 1;
 
-my $client = Tak::Client->new(service => Tak::Router->new);
+my $iclient = Tak::Client->new(service => Tak::Router->new);
 
-$client->curry('meta')->do(register => eval => 'Tak::EvalService');
+my $rclient;
 
-my $repl = Tak::REPL->new(client => $client->curry('eval'));
+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;