lib/chat.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

package chat;
use Dancer ':syntax';
use 5.010;

our $VERSION = '0.1';

get '/' => sub {
    template 'index';
};

get qr{/chat/(.*)} => sub {
    my $room = splat;
    my $env  = request->env;
    template 'room', { room => $room, host => 'foo', env => $env };
};

true;