題名

Design Patterns

    sub hello : Global {
        my ( $self, $context ) = @_;
        $context->response->body('Hello World!');
    }
    $ perl -MCPAN -e 'install Task::Catalyst'
    $ catalyst.pl MyApp
    # （出力は省略）
    $ cd MyApp
    $ script/myapp_create.pl controller Library::Login
    $ script/myapp_server.pl
    package MyApp;

    use strict;
    use Catalyst qw/-Debug/;

    MyApp->config(
        name => 'My Application',

        # これ以外に何を書いても結構です。
        my_configuration_variable => 'something',
    );

    sub default : Private {
        my ( $self, $context ) = @_;
        $context->response->body('Catalyst rocks!');
    }

    1;
    <h1>Welcome to [% c.config.name %]!</h1>
    sub hello : Global {
        my ( $self, $c ) = @_;
        $c->res->body('Hello World!');
    }
    $c->request
    $c->req # alias
    $c->req->params->{foo};
    $c->req->cookies->{sessionid};
    $c->req->headers->content_type;
    $c->req->base;
    $c->response
    $c->res # alias
    $c->res->body('Hello World');
    $c->res->status(404);
    $c->res->redirect('http://oook.de');
    $c->config
    $c->config->root;
    $c->config->name;
    $c->log

    $c->log->debug('Something happened');
    $c->log->info('Something you should know');
    $c->stash
    $c->stash->{foo} = 'bar';
    sub hello : Global {
        my ( $self, $c ) = @_;
        $c->stash->{message} = 'Hello World!';
        $c->forward('show_message');
    }

    sub show_message : Private {
        my ( $self, $c ) = @_;
        $c->res->body( $c->stash->{message} );
    }
    package MyApp::Controller::My::Controller;
    sub bar : Path('foo/bar') { }
    package MyApp::Controller::My::Controller;
    sub bar : Path('/foo/bar') { }
    package MyApp::Controller::My::Controller;
    sub bar : Path { }
    sub bar : Regex('^item(\d+)/order(\d+)$') { }
    sub bar : LocalRegex('^widget(\d+)$') { }
    package MyApp::Controller::Catalog;
    sub bar : LocalRegex('widget(\d+)$') { }
    package MyApp; 
    sub foo : Global { }
    package MyApp::Controller::My::Controller; 
    sub foo : Local { }
    sub foo : Private { }
    $c->forward('foo');
    Package MyApp::Controller::Foo;
    sub begin : Private { }
    sub default : Private { }
    sub auto : Private { }
  MyApp::begin
  MyApp::auto
  MyApp::Controller::Foo::default # MyApp::Controller::Foo::Fooがない場合
  MyApp::end
  MyApp::Controller::Foo::Bar::begin
  MyApp::auto
  MyApp::Controller::Foo::auto
  MyApp::Controller::Foo::Bar::auto
  MyApp::Controller::Foo::Bar::default # MyApp::Controller::Foo::Bar::fooのかわり
  MyApp::Controller::Foo::Bar::end
  MyApp::Controller::Foo::Bar::begin
  MyApp::auto
  MyApp::Controller::Foo::Bar::end
    sub foo : Regex('^foo$') { my ($self, $context, $bar, $baz) = @_; }
    sub boo : Path('foo/boo') { .. }
    sub hoo : Path('foo/boo/hoo') { .. }
    /foo/boo/hoo
    /foo/boo
    /foo # /foo/bar/bazにはなるかもしれませんが、/foo/boo/hooにはなりません
    # http://localhost:3000/catalog/view/?category=hardware&page=3
    my $category = $c->req->param('category');
    my $current_page = $c->req->param('page') || 1;

    # ひとつのパラメータ名で複数の値を扱うこともできます
    my @values = $c->req->param('scrolling_list');          

    # DFVはCGI.pmのような入力ハッシュを要求します。
    my $results = Data::FormValidator->check($c->req->params, \%dfv_profile);
    sub hello : Global {
        my ( $self, $c ) = @_;
        $c->stash->{message} = 'Hello World!';
        $c->forward('check_message'); # $cは自動的にインクルードされます
    }

    sub check_message : Private {
        my ( $self, $c ) = @_;
        return unless $c->stash->{message};
        $c->forward('show_message');
    }

    sub show_message : Private {
        my ( $self, $c ) = @_;
        $c->res->body( $c->stash->{message} );
    }
    sub hello : Global {
        my ( $self, $c ) = @_;
        $c->stash->{message} = 'Hello World!';
        $c->forward('check_message',[qw/test1/]);
        # ここで$c->req->argsの値は元に戻ります
    }

    sub check_message : Private {
        my ( $self, $c ) = @_;
        my $first_argument = $c->req->args[0]; # ここでの値は 'test1' です
        # 何らかの処理をします…
    }
  $c->forward('/my/controller/action');
  $c->forward('/default'); # メイン・アプリケーションのdefaultが呼ばれます
    sub hello : Global {
        my ( $self, $c ) = @_;
        $c->forward(qw/MyApp::Model::Hello say_hello/);
    }

    sub bye : Global {
        my ( $self, $c ) = @_;
        $c->forward('MyApp::Model::Hello'); # メソッドがない場合。「process」を試行します
    }

    package MyApp::Model::Hello;

    sub say_hello {
        my ( $self, $c ) = @_;
        $c->res->body('Hello World!');
    }

    sub process {
        my ( $self, $c ) = @_;
        $c->res->body('Goodbye World!');
    }
    package MyApp::Controller::Catalog;

    use strict;
    use base 'Catalyst::Base';

    __PACKAGE__->config( foo => 'bar' );

    1;
    package MyApp::View::TT;

    use strict;
    use base 'Catalyst::View::TT';

    1;
    script/myapp_create.pl view TT TT
    sub hello : Global {
        my ( $self, $c ) = @_;
        $c->stash->{template} = 'hello.tt';
    }

    sub end : Private {
        my ( $self, $c ) = @_;
        $c->forward('MyApp::View::TT');
    }
    -- myapp.sql
    CREATE TABLE foo (
        id INTEGER PRIMARY KEY,
        data TEXT
    );

    CREATE TABLE bar (
        id INTEGER PRIMARY KEY,
        foo INTEGER REFERENCES foo,
        data TEXT
    );

    INSERT INTO foo (data) VALUES ('TEST!');


    % sqlite /tmp/myapp.db < myapp.sql
    package MyApp::Model::CDBI;

    use strict;
    use base 'Catalyst::Model::CDBI';

    __PACKAGE__->config(
        dsn           => 'dbi:SQLite:/tmp/myapp.db',
        relationships => 1
    );

    1;
    package MyApp;

    use strict;
    use Catalyst '-Debug';

    __PACKAGE__->config(
        name => 'My Application',
        root => '/home/joeuser/myapp/root'
    );
    
    __PACKAGE__->setup;

    sub end : Private {
        my ( $self, $c ) = @_;
        $c->stash->{template} ||= 'index.tt';
        $c->forward('MyApp::View::TT');
    }

    sub view : Global {
        my ( $self, $c, $id ) = @_;
        $c->stash->{item} = MyApp::Model::CDBI::Foo->retrieve($id);
    }

    1;

    # それから、TTのテンプレートにこう書きます。
    idは[% item.data %]です
    # コントローラで
    sub list : Local {
      my ( $self, $c ) = @_;
      $c->stash->{template} = 'list.tt';
      use Some::Outside::CDBI::Module;
      my @records = Some::Outside::CDBI::Module->retrieve_all;
      $c->stash->{records} = \@records;
    }
    package MyApp::Model::Catalog;
    use base qw/Catalyst::Base Some::Other::CDBI::Module::Catalog/;
    1;
    package MyApp::Controller::Login;

    sub sign-in : Local { }
    sub new-password : Local { }
    sub sign-out : Local { }

    package MyApp::Controller::Catalog;

    sub view : Local { }
    sub list : Local { }

    package MyApp::Controller::Cart;

    sub add : Local { }
    sub update : Local { }
    sub order : Local { }
    script/myapp_server.pl
    script/myapp_test.pl http://localhost/
    Join #catalyst on irc.perl.org.
    http://lists.rawmode.org/mailman/listinfo/catalyst
    http://lists.rawmode.org/mailman/listinfo/catalyst-dev

題名

説明

Catalystとは？

MVC

柔軟性

シンプルさ

クイックスタート

インストール

セットアップ

実行

Catalystの動作

アプリケーション・クラス

コンテキスト

アクション

ビルトイン・プライベート・アクション

コントローラのビルトイン・アクション／オートチェーニング

URLパスの扱い

パラメータ処理

フロー管理

コンポーネント

ビュー

モデル

コントローラ

テスティング

サポート

著者

翻訳者

著作権表示