俺々フレームワークを作ってみたかったので、先人の知恵をいろいろ拝借する感じでやってみた。 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) = @