async_pool は terminate しないから join もできない

coro プールを使った場合、coro は async_pool ブロックを抜けても terminate はしない。すると、join もできないことになる。

$ perl -MCoro -e '(async{})->join'
$ perl -MCoro -e '(async_pool{})->join'
FATAL: deadlock detected.

明示的に coro の中で terminate すれば join できるけれど、coro プールの使い方に反する。

$ perl -MCoro -e '(async_pool{terminate})->join'