nanoaでPerlを学習

思いつきではじめます.題材はnanoaのチュートリアルです.正確に言うとnanoaで書くコードの意味を知ろうという内容です.ぼちぼち書いていきましょう.例によってツッコミ歓迎です

さいしょのMENTAテンプレートを書くだけで動くと云うところは後回しで,0.16時点のチュートリアルのコードを見ながらPerlを学習してみます.ふつうに学ぼうとするときにやることすっ飛ばすので,理解できるかどうかわかりませんが気にしません

以下コードや参考資料とかです

コード

app/hello/start.pm

package hello::start;

use strict;
use warnings;
use utf8;

use base qw(NanoA);

sub run {
    my $app = shift;
    return $app->render('hello/template/start', {
        user => $app->query->param('user'),
    });
}

1;

参考資料

プログラミングPerl〈VOLUME1〉

プログラミングPerl〈VOLUME1〉

プログラミングPerl〈VOLUME2〉

プログラミングPerl〈VOLUME2〉