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

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 $done;
  my $connection = Tak::ConnectionService->new(
    read_fh => $stdin, write_fh => $stdout,
    listening_service => Tak::Router->new,
    on_close => sub { $done = 1 }
  );
  Tak->loop_until($done);
}

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