lib/Tak/STDIOSetup.pm

   1 package Tak::STDIOSetup;
   2
   3 use Tak::ConnectionService;
   4 use Tak::Router;
   5 use Tak;
   6 use strictures 1;
   7
   8 sub run {
   9   open my $stdin, '<&', \*STDIN;
  10   open my $stdout, '>&', \*STDOUT;
  11   close STDIN; close STDOUT;
  12   my $connection = Tak::ConnectionService->new(
  13     read_fh => $stdin, write_fh => $stdout,
  14     listening_service => Tak::Router->new
  15   );
  16   Tak->loop->loop_forever;
  17 }
  18
  19 1;