perl - 有没有办法查看 AnyEvent 事件队列

Question

我正在处理一个使用 AnyEvent 异步编写的 Perl 项目.在测试期间，我遇到过这样一种情况:我的代码中的一个错误导致在我的测试完成后调用了阻塞的代码，因此测试看起来通过了，但阻塞的调用最终会污染其他测试。

我想要发生的是在测试的拆解中，验证 AnyEvent不等待任何其他被阻止的调用。是否可以检查AnyEvent如果它有任何尚未执行的调用？

Answer 1

我的第一个答案被删除了，因为我回答后问题改变了。这是相当令人沮丧的，所以如果你想得到答案，你真的不应该像这样改变你的问题，而是修改它们，所以上下文保持清晰。

无论如何，至于您的新问题，AnyEvent 本身没有事件队列，因此您无法查看它。虽然一些底层事件库有一个事件队列，但有些没有，而且它们都没有公开导出他们的事件队列。

更糟糕的是，它甚至无济于事，因为事件可能还没有在队列中，即使它发生了(例如，当您处理某个事件时，计时器可能会过去，因此它不会在事件队列中，但它或多或少会立即触发)。

最后，AnyEvent(基于事件)从不等待阻塞的调用。