8 my $iclient = Tak::Client->new(service => Tak::Router->new);
12 if (my $on = $ARGV[0]) {
13 $iclient->curry('meta')->do(register => connector => 'Tak::ConnectorService');
14 my @path = $iclient->curry('connector')->do(create => $ARGV[0]);
15 $rclient = $iclient->curry('connector', 'connection', @path, 'remote');
16 my $lclient = $iclient->curry('connector', 'connection', @path, 'local');
17 $lclient->curry('meta')->do(register => module_sender => 'Tak::ModuleSender');
18 $rclient->curry('meta')->do(
19 register => module_loader => 'Tak::ModuleLoader',
20 expose => { module_sender => [ 'remote', 'module_sender' ] }
22 $rclient->curry('module_loader')->do('enable');
27 $rclient->curry('meta')->do(register => eval => 'Tak::EvalService');
29 my $repl = Tak::REPL->new(client => $rclient->curry('eval'));