masaki

package MyApp;

__PACKAGE__->request_class('MyApp::Request');

package MyApp::Request;

use strict;
use parent 'Catalyst::Request';

sub method {

masaki

my $router = HTTP::Router->define(sub {
    $_->with({ controller => 'users' }, sub {
        $_->match('/login')->register;
        $_->match('/logout')->register;
        $_->match('/signup')->register;
    });
});

masaki

#!/usr/bin/env perl

use strict;
use warnings;
use FindBin::libs;

use YAML;
use Sniffer::RTMP;

my $dev = $ARGV[0] or die 'require device name';