X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=takd;h=e29e164d740b9336ad8d800cec496b3faed935a9;hb=799b77f3fc1fa536b274a8e976b3c8351c45ad97;hp=4dea86391a23f6379b97604642066d5976bc2740;hpb=34a159d9d9bd8000f8bf9f56b19141c817dfbb89;p=scpubgit%2FTak.git

diff --git a/takd b/takd
index 4dea863..e29e164 100644
--- a/takd
+++ b/takd
@@ -2,11 +2,16 @@ use strictures 1;
 use Tak::JSONChannel;
 use Tak::ServiceManager;
 use Tak::EvalService;
+use Tak::ModuleLoader;
 use Tak::Router;
+use Tak::Remote;
+
+open my $stdin, '<&', \*STDIN;
+open my $stdout, '>&', \*STDOUT;
 
 my $channel = Tak::JSONChannel->new(
-  read_fh => \*STDIN,
-  write_fh => \*STDOUT
+  read_fh => $stdin,
+  write_fh => $stdout,
 );
 
 my $eval = Tak::ServiceManager->new(
@@ -20,4 +25,18 @@ my $router = Tak::Router->new(
   }
 );
 
+my $remote = Tak::Remote->new(
+  router => $router,
+  name => 'MODULE_SENDER'
+);
+
+my $loader = Tak::ModuleLoader->new(
+  remote => $remote
+);
+
+shift @INC;
+shift @INC while $INC[0] =~ /^\Q$ENV{HOME}/;
+
+unshift @INC, $loader->inc_callback;
+
 $router->run;