#!/usr/bin/env perl
-use Tak::WorldHandle;
+use Tak::Client;
+use Tak::Router;
+use Tak::MetaService;
use Tak::REPL;
use strictures 1;
-my $world = do {
- if (my $ssh_target = $ARGV[0]) {
- Tak::WorldHandle->new_remote($ssh_target);
- } else {
- Tak::WorldHandle->new_local;
- }
-};
+my $router = Tak::Router->new;
-Tak::REPL->new(world => $world)->run;
+$router->register(meta => Tak::MetaService->new(router => $router));
+
+my $client = Tak::Client->new(service => $router);
+
+$client->curry('meta')->do(register => eval => 'Tak::EvalService');
+
+my $repl = Tak::REPL->new(client => $client->curry('eval'));
+
+$repl->run;