6 has client => (is => 'ro', required => 1);
9 my $client = $_[0]->client;
10 my $read = Term::ReadLine->new('REPL');
13 my $line = $read->readline('re.pl$ ');
14 last unless defined $line;
15 next unless length $line;
16 my $result = $client->do(eval => $line);
17 print exists($result->{return})
19 : "Error: ".$result->{exception};
20 if ($result->{stdout}) {
21 chomp($result->{stdout});
22 print "STDOUT:\n${\$result->{stdout}}\n";
24 if ($result->{stderr}) {
25 chomp($result->{stderr});
26 print "STDERR:\n${\$result->{stderr}}\n";