bin/tak-repl

   1 #!/usr/bin/env perl
   2
   3 use Tak::Client;
   4 use Tak::Router;
   5 use Tak::MetaService;
   6 use Tak::REPL;
   7 use strictures 1;
   8
   9 my $router = Tak::Router->new;
  10
  11 $router->register(meta => Tak::MetaService->new(router => $router));
  12
  13 my $client = Tak::Client->new(service => $router);
  14
  15 $client->curry('meta')->do(register => eval => 'Tak::EvalService');
  16
  17 my $repl = Tak::REPL->new(client => $client->curry('eval'));
  18
  19 $repl->run;