俺々フレームワークを作ってみたかったので、先人の知恵をいろいろ拝借する感じでやってみた。

• https://github.com/kentaro/cute

いろいろ足りないものがあるけど、まあとりあえず動くところまで。自分の好み的に、わりといい感じになりつつあるので、今後は、個人用プロジェクトにはこれを使っていきたい。

いちファイルでこんなん書いたら適当に動く感じ。

package Example::Cute::Default;
use strict;
use warnings;
use Cute;
sub title {
my ($self, $suffix) = @_;
my $title  = 'Hello, Cute!';
$title .= " ($suffix)" if $suffix;
$title;
}
get '/' => sub {
my ($self, $ctx) = @_;
};
get '/foo' => sub {
my ($self, $ctx) = @_;
$ctx->res->content($self->title('/foo'));
};
get '/bar/baz' => sub {
my ($self, $ctx) = @_;
$ctx->stash(
title => $self->title('/bar/baz'),
list  => [
{ value => 'foo' },
{ value => 'bar' },
{ value => 'baz' },
],
);
};
get '/{year:[0-9]{4}}/{month:[0-9]{2}}' => sub {
my ($self, $ctx) = @_;
$ctx->response->set_template('path_query.html');
$ctx->stash(
year  => $ctx->req->path_query('year'),
month => $ctx->req->path_query('month'),
);
};
!!1;

んでもって、それだと規模が大きくなると見通しが悪くなりそうなので、Controller別にも分けられるようにもしてみた。::Contoler::Hogeみたいなのの中では、get/post/put/deleteが、自動的に/hoge以下を指すようになる。

package Example::Cute::Default::Controller::Hoge;
use strict;
use warnings;
use Cute 'Example::Cute::Default';
get '/' => sub {
my ($self, $ctx) = @_;
$ctx->res->content($self->title('/hoge'));
};
get '/fuga' => sub {
my ($self, $ctx) = @_;
$ctx->stash(
title => $self->title('/hoge/fuga'),
list  => [
{ value => 'foo' },
{ value => 'bar' },
{ value => 'baz' },
],
);
};
!!1;

上の例は以下から見ることができる。

• https://github.com/kentaro/cute/tree/master/eg/default