[scpubgit/Tak.git] / takd

use strictures 1;
use Tak::JSONChannel;
use Tak::ServiceManager;
use Tak::EvalService;
use Tak::Router;

my $channel = Tak::JSONChannel->new(
  read_fh => \*STDIN,
  write_fh => \*STDOUT
);

my $eval = Tak::ServiceManager->new(
  service => Tak::EvalService->new
);

my $router = Tak::Router->new(
  channel => $channel,
  local_request_handlers => {
    EVAL => $eval
  }
);

$router->run;
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;