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 $done;
  13   my $connection = Tak::ConnectionService->new(
  14     read_fh => $stdin, write_fh => $stdout,
  15     listening_service => Tak::Router->new,
  16     on_close => sub { $done = 1 }
  17   );
  18   Tak->loop_until($done);
  19 }
  20
  21 1;