use strict; use warnings; use utf8; use Amon2::Lite; get '/' => sub { my $c = shift; return $c->render('index.tt'); }; any '/echo2' => sub { my ($c) = @_; $c->websocket(sub { my $ws = shift; $ws->on_receive_message(sub { my ($c, $message) = @_; $ws->send_message("YAY: " . $message); }); }); }; # load plugins __PACKAGE__->load_plugin('Web::WebSocket'); __PACKAGE__->enable_middleware('AccessLog'); _
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く