4 use JSON::PP qw(encode_json decode_json);
5 use Eval::WithLexicals;
6 use Data::Dumper::Concise;
13 my $eval = Eval::WithLexicals->new;
16 warn "sending: ".encode_json([ @_ ])."\n" if $DEBUG;
17 print STDOUT encode_json([ @_ ])."\n"
18 or die "Failed to print to STDOUT: $!";
24 out(MISTAKE => eval_input => "No code supplied");
27 if (my $ref = ref($perl)) {
28 out(MISTAKE => eval_input => "Code was a ${ref} reference");
32 open my $stdout, '>', \my $output;
33 open my $stderr, '>', \my $errors;
35 local *STDOUT = $stdout;
36 local *STDERR = $stderr;
37 @ret = $eval->eval($perl);
42 ($code, @ret) = (FAILURE => $@);
45 unless (eval { $dumped_ret = Dumper(@ret); 1 }) {
46 $dumped_ret = "Error dumping ${code} result: $@";
49 out($code => { stdout => $output, stderr => $errors, return => $dumped_ret });
52 warn "starting\n" if $DEBUG;
54 while (my $line = <STDIN>) {
55 warn "got: $line" if $DEBUG;
56 my $data = eval { decode_json($line) };
58 out(MISTAKE => invalid_json => $@);
61 unless (ref($data) eq 'ARRAY') {
62 out(MISTAKE => message_format => "Not an ARRAY");
66 out(MISTAKE => message_format => "No message name");
69 if (my $ref = ref($data->[0])) {
70 out(MISTAKE => message_format => "Message name was a ${ref} ref");
73 my ($message, @args) = @{$data};
74 if ($message eq 'EXIT') {
76 } elsif ($message eq 'EVAL') {
79 out(MISTAKE => message_name => "Unknown message");