EVOLUTION-MANAGER

Edit File: chat.pl

use Mojolicious::Lite; use Mojo::EventEmitter; helper events => sub { state $events = Mojo::EventEmitter->new }; get '/' => 'chat'; websocket '/channel' => sub { my $c = shift; $c->inactivity_timeout(3600); # Forward messages from the browser $c->on(message => sub { shift->events->emit(mojochat => shift) }); # Forward messages to the browser my $cb = $c->events->on(mojochat => sub { $c->send(pop) }); $c->on(finish => sub { shift->events->unsubscribe(mojochat => $cb) }); }; # Minimal single-process WebSocket chat application for browser testing app->start; __DATA__ @@ chat.html.ep <form onsubmit="sendChat(this.children[0]); return false"><input></form> <div id="log"></div> <script> var ws = new WebSocket('<%= url_for('channel')->to_abs %>'); ws.onmessage = function (e) { document.getElementById('log').innerHTML += '<p>' + e.data + '</p>'; }; function sendChat(input) { ws.send(input.value); input.value = '' } </script>