我正在使用IO :: Socket :: Async处理一个小项目.我正在尝试编写一些测试以确保我正确处理连接丢失,但我最初的尝试没有按计划进行.我认为使用QUIT移相器可以工作,但是在我尝试关闭供应的测试中没有给出任何响应,但这并没有给出我希望的结果.有人能指出我在如何使用IO :: Socket :: Async处理连接丢失的正确方向吗?
我尝试使用戒烟的供应示例如下.因为它没有按我的预期工作.我不确定我是否正确地做到了这一点.
supply whenever $connection -> $event {
if $event ~~ /event message/ {
emit { status => $event };
}
QUIT {
.note;
say 'conection lost';
}
}
Run Code Online (Sandbox Code Playgroud)