takc

   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;') ]);