试图处理延迟响应中的错误。
每次我发送 [200, [ 'Content-Type', 'application/json' ] 并在刷新其他类似的东西之前出错
$w->write("我的数据");
$w->close();
我在标准输出中收到警告，在标准错误中收到错误，但页面仍在加载。
它将一直加载，直到我停止应用程序或手动停止页面加载。
我如何停止在代码中加载页面或如何正确处理我使用延迟响应的此类应用程序中的错误？
Perl 版本 5.24 Kelp 版本 1.02 使用 Corona 运行 Plack。
我们正在处理抛出 Exception::Class 的错误。使用 Try::Tiny 捕获错误。
还尝试了 eval 和其他东西，但它不起作用。但是更改了 Try::Tiny -> TryCatc 并在出现任何错误时返回，但我需要为每个 catch 块写返回，它看起来很糟糕
#!/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;