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