3 use Tak::ServiceManager;
9 open my $stdin, '<&', \*STDIN;
10 open my $stdout, '>&', \*STDOUT;
12 my $channel = Tak::JSONChannel->new(
17 my $eval = Tak::ServiceManager->new(
18 service => Tak::EvalService->new
21 my $router = Tak::Router->new(
23 local_request_handlers => {
28 my $remote = Tak::Remote->new(
30 name => 'MODULE_SENDER'
33 my $loader = Tak::ModuleLoader->new(
38 shift @INC while $INC[0] =~ /^\Q$ENV{HOME}/;
40 unshift @INC, $loader->inc_callback;