Controller.

最近落ち着いたコントローラーフロー。確認があるときは、もう一つ増えるけど。
みんなどうやってんねやろ。

sub foo : Local {
    my ( $s, $c) =@_;
    
    # do somthing for form.

    if( $c->req->method eq 'POST' ){
       $c->detach('do_foo');
    }
}

sub do_foo : Private {
    my ( $s, $c) =@_;

    if( $c->has_dfv_error ) {
        #fooを通ってるんで、fooのテンプレートの表示は問題ない。例えば、セレクトボックスのリストをDBからとってるときとか。
        #フォームの入力値に、おかしくなかった値は戻すことができる。
        return ;
    }

    # do like insert data to db...
    
    $c->detach('done');
}