projects
/
scpubgit/Tak.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
2383219fd4161ff9f1d1df127a9596721e107ed2
[scpubgit/Tak.git]
/
bin
/
tak-repl
1
#!/usr/bin/env perl
2
3
use Tak::Client;
4
use Tak::Router;
5
use Tak::REPL;
6
use strictures 1;
7
8
my $client = Tak::Client->new(service => Tak::Router->new);
9
10
$client->curry('meta')->do(register => eval => 'Tak::EvalService');
11
12
my $repl = Tak::REPL->new(client => $client->curry('eval'));
13
14
$repl->run;