[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 $connection = Tak::ConnectionService->new(
    read_fh => $stdin, write_fh => $stdout,
    listening_service => Tak::Router->new
  );
  Tak->loop->loop_forever;
}

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;
	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;