PERL Dancer stdout捕获

Question

我正在尝试使用Dancer制作一个应用程序来执行我写入和读取的过程。在我的测试中，这在舞者之外工作得很好，但是当我在舞者身上跑步时，我无法捕捉到我产生的过程的输出。

例如，当我尝试以下

时

package My::App;
use Dancer ':syntax';
set serializer => 'JSON';
our $VERSION = '0.1';
use IPC::Run3;

get '/encode' => sub {
    my ($out, $err);
    my $in = 'test';
    run3 'cat', \$in, \$out, \$err;
    return $out;
}

不是在$ out中捕获输出，而是将其打印到控制台。

使用内置的Web服务器运行Dancer应用程序时会发生这种情况。