[scpubgit/Tak.git] / takc

use strictures 1;
use Devel::Dwarn;
use Tak::JSONChannel;
use Tak::Router;
use IPC::Open2;
use Tak::Remote;

my $pid = open2(my $out, my $in, $^X, qw(-Ilib takd))
  or die "Couldn't open2 child: $!";

my $channel = Tak::JSONChannel->new(
  read_fh => $out,
  write_fh => $in
);

my $router = Tak::Router->new(
  channel => $channel,
);

my $remote = Tak::Remote->new(
  router => $router,
  name => 'EVAL'
);

::Dwarn([ $remote->blocking_request(eval => 'my $x = 1;') ]);
::Dwarn([ $remote->blocking_request(eval => '1+$x;') ]);
Commit	Line	Data
36cf3bcb	1	use strictures 1;
	2	use Devel::Dwarn;
	3	use Tak::JSONChannel;
	4	use Tak::Router;
	5	use IPC::Open2;
	6	use Tak::Remote;
	7
	8	my $pid = open2(my $out, my $in, $^X, qw(-Ilib takd))
	9	or die "Couldn't open2 child: $!";
	10
	11	my $channel = Tak::JSONChannel->new(
	12	read_fh => $out,
	13	write_fh => $in
	14	);
	15
	16	my $router = Tak::Router->new(
	17	channel => $channel,
	18	);
	19
	20	my $remote = Tak::Remote->new(
	21	router => $router,
	22	name => 'EVAL'
	23	);
	24
	25	::Dwarn([ $remote->blocking_request(eval => 'my $x = 1;') ]);
	26	::Dwarn([ $remote->blocking_request(eval => '1+$x;') ]);