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
+ listening_service => Tak::Router->new,
+ on_close => sub { $done = 1 }
);
- Tak->loop->loop_forever;
+ Tak->loop_until($done);
}
1;