Commit | Line | Data |
---|---|---|
36cf3bcb | 1 | use strictures 1; |
2 | use Tak::JSONChannel; | |
3 | use Tak::ServiceManager; | |
4 | use Tak::EvalService; | |
5 | use Tak::Router; | |
6 | ||
7 | my $channel = Tak::JSONChannel->new( | |
8 | read_fh => \*STDIN, | |
9 | write_fh => \*STDOUT | |
10 | ); | |
11 | ||
12 | my $eval = Tak::ServiceManager->new( | |
13 | service => Tak::EvalService->new | |
14 | ); | |
15 | ||
16 | my $router = Tak::Router->new( | |
17 | channel => $channel, | |
18 | local_request_handlers => { | |
19 | EVAL => $eval | |
20 | } | |
21 | ); | |
22 | ||
23 | $router->run; |