1 package Tak::EvalService;
3 use Eval::WithLexicals;
4 use Data::Dumper::Concise;
5 use Capture::Tiny qw(capture);
8 with 'Tak::Role::Service';
10 has 'eval_withlexicals' => (is => 'lazy');
12 sub _build_eval_withlexicals {
13 Eval::WithLexicals->new
17 my ($self, $perl) = @_;
19 die [ mistake => eval_input => "No code supplied" ];
21 if (my $ref = ref($perl)) {
22 die [ mistake => eval_input => "Code was a ${ref} reference" ];
25 my ($stdout, $stderr);
27 ($stdout, $stderr) = capture {
28 @ret = $self->eval_withlexicals->eval($perl);
34 ($ok, @ret) = (0, $@);
37 unless (eval { $dumped_ret = Dumper(@ret); 1 }) {
38 $dumped_ret = "Error dumping ${\($ok ? 'result' : 'exception')}: $@";
42 stdout => $stdout, stderr => $stderr,
43 ($ok ? 'return' : 'exception') => $dumped_ret