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;