client and server manage to talk

[scpubgit/Tak.git] / takd

diff --git a/takd b/takd
new file mode 100644 (file)
index 0000000..4dea863
--- /dev/null
+++ b/takd
@@ -0,0 +1,23 @@
+use strictures 1;
+use Tak::JSONChannel;
+use Tak::ServiceManager;
+use Tak::EvalService;
+use Tak::Router;
+
+my $channel = Tak::JSONChannel->new(
+  read_fh => \*STDIN,
+  write_fh => \*STDOUT
+);
+
+my $eval = Tak::ServiceManager->new(
+  service => Tak::EvalService->new
+);
+
+my $router = Tak::Router->new(
+  channel => $channel,
+  local_request_handlers => {
+    EVAL => $eval
+  }
+);
+
+$router->run;