client and server manage to talk

[scpubgit/Tak.git] / takc

diff --git a/takc b/takc
new file mode 100644 (file)
index 0000000..91745e6
--- /dev/null
+++ b/takc
@@ -0,0 +1,26 @@
+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;') ]);