6 has world => (is => 'ro', required => 1);
8 has remote => (is => 'lazy');
12 my $world = $self->world;
13 $world->remote_for('meta')->blocking_request(
14 register => eval => 'Tak::EvalService'
16 $world->remote_for('eval')
20 my $remote = $_[0]->remote;
21 my $read = Term::ReadLine->new('REPL');
24 my $line = $read->readline('re.pl$ ');
25 last unless defined $line;
26 next unless length $line;
27 my @reply = $remote->blocking_request(eval => $line);
28 if ($reply[0] eq 'MISTAKE') {
29 die "Botch: ".join(': ', @reply[1,2]);
34 chomp($ret->{stdout});
35 print "STDOUT:\n${\$ret->{stdout}}\n";
38 chomp($ret->{stderr});
39 print "STDERR:\n${\$ret->{stderr}}\n";