new remote code

[scpubgit/Tak.git] / lib / Tak / STDIOSetup.pm

diff --git a/lib/Tak/STDIOSetup.pm b/lib/Tak/STDIOSetup.pm
new file mode 100644 (file)
index 0000000..fed4656
--- /dev/null
+++ b/lib/Tak/STDIOSetup.pm
@@ -0,0 +1,19 @@
+package Tak::STDIOSetup;
+
+use Tak::ConnectionService;
+use Tak::Router;
+use Tak;
+use strictures 1;
+
+sub run {
+  open my $stdin, '<&', \*STDIN;
+  open my $stdout, '>&', \*STDOUT;
+  close STDIN; close STDOUT;
+  my $connection = Tak::ConnectionService->new(
+    read_fh => $stdin, write_fh => $stdout,
+    listening_service => Tak::Router->new
+  );
+  Tak->loop->loop_forever;
+}
+
+1;