working remote module loading

[scpubgit/Tak.git] / takc

diff --git a/takc b/takc
index d265345..d9db431 100644 (file)
--- a/takc
+++ b/takc
@@ -3,6 +3,8 @@ use Tak::JSONChannel;
 use Tak::Router;
 use IPC::Open2;
 use Tak::Remote;
+use Tak::ModuleSender;
+use Tak::ServiceManager;
 use Term::ReadLine;
 
 my $pid = open2(my $out, my $in, $^X, qw(-Ilib takd))
@@ -15,6 +17,11 @@ my $channel = Tak::JSONChannel->new(
 
 my $router = Tak::Router->new(
   channel => $channel,
+  local_request_handlers => {
+    MODULE_SENDER => Tak::ServiceManager->new(
+      service => Tak::ModuleSender->new
+    )
+  },
 );
 
 my $remote = Tak::Remote->new(