如何处理 plack 延迟响应中的错误

Question

已尝试处理延迟响应中的错误。

每次我发送 [200, [ 'Content-Type', 'application/json' ] 在刷新其他类似的东西之前出现错误

$w->write("MyData");

$w->close();

我在 stdout 中收到警告，在 stderr 中收到错误，但页面一直在加载。

它会一直加载，直到我停止应用程序或手动停止页面加载。

如何在代码中停止加载页面或如何正确处理使用延迟响应的此类应用程序中的错误？

Perl 版本 5.24 海带1.02版运行 Plack with Corona.

我们正在处理抛出的错误 Exception::Class。使用 Try::Tiny.

捕获错误

也尝试了 eval 和其他东西，但没有用。但是如果有任何错误，则更改 Try::Tiny -> TryCatc 和 return，但是我需要为每个 catch 块写 return，它看起来很糟糕

#!/usr/bin/perl
use strict;
use warnings;

use Kelp::Less;
get '/hello' => sub  {
    return sub {
        my $res = shift;
        my $w = $res->([200, [ 'Content-Type', 'application/json' ]]);
        my $data = 10 / 0;
        $w->write("MyData");
        $w->close();
    }
};
run;

我正在寻找正确的错误处理，我需要 try{} catch{};在每个可能失败的代码上？

感谢@ikegami 的回答，但在尝试 Object::Destoyer 和 Sub::ScopeFinalizer 后页面仍在加载。据我了解 $w(writer) 不会导致页面加载。退出作用域后，$w 变为 undef 然后就没有什么可以关闭了，这里是代码。

#!/usr/bin/perl
use strict;
use warnings;

use Object::Destroyer;
use Kelp::Less;
get '/hello' => sub  {
    return sub {
        my $res = shift;

        my $w = $res->([200, [ 'Content-Type', 'application/json' ]]);
        my $g = Object::Destroyer->new( sub { $w->close if $w } );
        my $zzz = 1 / 0;
        $w->write("DATA");
        $w->close();
    }
};
run;

所以我想出了这个解决方案，你觉得怎么样？

#!/usr/bin/perl
use strict;
use warnings;

use Try::Tiny;
use Object::Destroyer;
use Kelp::Less;
get '/hello' => sub  {
    return sub {
        my $res = shift;

        my $w = $res->([200, [ 'Content-Type', 'application/json' ]]);
        my $g = Object::Destroyer->new( sub { $w->close if $w; } );
        my $ans = try {                                                                   
            my $zzz = 1 / 0;                                                              
        }                                                                                 
        catch {
            print $_;                                                                   
            return;                                                                       
        };                                                                                
        return unless $ans;

        $w->write("DATA");
        $w->close();
    }
};
run;

Answer 1

通过使用

包装应用解决此问题

Plack::Middleware::HTTPExceptions

如何处理 plack 延迟响应中的错误

How to handle errors in plack delayed response

perl

plack