リクエスト毎の処理

20130527_2.pl

sub dispatch {
    my $c = shift;
    # ユーザが指定された処理を、Mouse::Roleにて差し込めるためのHook.
    $c->INITIALIZE;
 
    # 実行するロジック関数を見つける
    my ($controller,$action) = $c->dispatcher->match( $c );
 
    # 見つからなければ、404
    if ( !$controller or !$action ) {
        $c->not_found;
        return $c->FINALIZE;
    }
 
    my $controller_obj = $c->dispatcher->controllers->{$controller};
 
    try {
         # ユーザが指定された処理を、Mouse::Roleにて差し込めるためのHook.
        $c->PREPARE;
 
         # ロジックを実行する。Hookを入れれるようにしている。
        $controller_obj->EXECUTE( $c ,$action ); 
    }
    catch {
        die $_ unless /^ZE_EXCEPTION_ABORT/;
    };
 
    unless ( $c->finished ) {
        # ブラウザーに表示する
        $c->RENDER();
    }
 
    $c->FINALIZE();
}