Как реализовать или использовать WebSocket в Perl?
Мне нужно иметь 3 основных вещи из Perl и не знаю, как это сделать.
- Неблокирующая реализация веб-сокета, такая как
mojo, - Сервер должен принимать широковещательные вызовы после его запуска
- Сервер должен иметь возможность доступа к данным, находящимся в другом потоке.
я пытался mojo но не нашел способа управления портом (я могу с этим жить) и не выяснил, как вызывать события после запуска сервера. Я не смог проверить, сможет ли он обрабатывать события после свершившегося факта.
я пытался Net::WebSocket::Server но это блокировка. У меня возникает соблазн обернуть вокруг себя свой собственный код, чтобы он мог обрабатывать неблокирующие и совместно используемые данные, поскольку это, безусловно, самая простая реализация, которую легко модифицировать.
Я также пытался pocket.io но у него не было очень простого способа реализовать ОО-дизайн и все же оставаться безопасным для потоков. (В основном из-за Plack фреймворк).
У кого-нибудь есть хороший пример того, как это сделать с Mojolicious или же pocket.io? Если нет, то я просто должен реализовать свою собственную реализацию.