Introduction to Catalyst for Rapid Web Development

Catalyst

• Web Framework
• MVC
  • Model
    데이터
  • View
    페이지생성
  • Controller
    모델에서 데이터를 가져와서 처리
    처리한 데이터를 뷰로 넘김

Install

• CPAN
• install Task::Catalyst
  • Catalyst::Runtime
  • Catalyst::Devel
• Repository
  • http://dev.catalyst.perl.org/repos/Catalyst

How to (1)

• catalyst.pl MyApp

created "MyApp"
created "MyApp/script"
created "MyApp/lib"
created "MyApp/root"
...
created "MyApp/t"
created "MyApp/lib/MyApp"
created "MyApp/lib/MyApp/Model"
created "MyApp/lib/MyApp/View"
created "MyApp/lib/MyApp/Controller"
created "MyApp/myapp.conf"
created "MyApp/lib/MyApp.pm"
created "MyApp/lib/MyApp/Controller/Root.pm"
...
created "MyApp/script/myapp_server.pl"
created "MyApp/script/myapp_test.pl"
created "MyApp/script/myapp_create.pl"
        

How to (1)

How to (1)

• MyApp/lib
  모듈군
• MyApp/root
  이미지 파일, css등의 정적파일
• MyApp/script
  각종 기동스크립트
• MyApp/t
  테스트용

How to (2)

• ./script/mysql_server.pl
  

Welcome Message

• ./lib/MyApp/Controller/Root.pm

sub index :Path :Args(0) {
    my ( $self, $c ) = @_;

    # Hello World
    $c->response->body( $c->welcome_message );
}
	

Add Controllers

• ./script/myapp_create.pl controller Foo

 exists "/Users/song/Project/workshop/MyApp/script/../lib/MyApp/Controller"
 exists "/Users/song/Project/workshop/MyApp/script/../t"
created "/Users/song/Project/workshop/MyApp/script/../lib/MyApp/Controller/Foo.pm"
created "/Users/song/Project/workshop/MyApp/script/../t/controller_Foo.t"
	

• ./lib/MyApp/Controller/Foo.pm

sub index :Path :Args(0) {
    my ( $self, $c ) = @_;

    $c->response->body('Matched MyApp::Controller::Foo in Foo.');
}
	

• http://localhost:3000/foo

Action Type

• Path
  argument로 받은 값과 매치

package Foo;

sub bar : Path('bar') {..}
http://localhost:3000/foo/bar

sub bar : Path('/bar') {..}
http://localhost:3000/bar
	

Action Type

• Local
  action명에 매치

package Foo;

sub bar : Local {..}
http://localhost:3000/foo/bar
	

• Global
  controller의 namespace와 관계없이 action명에 매치

package Foo;

sub bar : Global {..}
http://localhost:3000/bar
	

Action Type

• Regex
  정규표현 매치

package Foo;

sub bar : Regex('^bar') {..}
http://localhost:3000/bar
http://localhost:3000/bar_baz
	

• LocalRegex
  controller의 namespace 이후의 정규표현 매치

package Foo;

sub bar : LocalRegex('^bar') {..}
http://localhost:3000/foo/bar
http://localhost:3000/foo/bar_baz
	

Action Type

• Chained

package Foo;

sub setup : Chained('/') PathPart('foo') Args(1) {..}
sub bar : Chanied('/setup') Args(0) {..}
http://localhost:3000/setup/*/bar
	

• Private
  내부액션
  • default
  • auto
  • end

Add View

• ./script/myapp_create.pl view TT TT

 exists "/Users/song/Project/workshop/MyApp/script/../lib/MyApp/View"
 exists "/Users/song/Project/workshop/MyApp/script/../t"
created "/Users/song/Project/workshop/MyApp/script/../lib/MyApp/View/TT.pm"
created "/Users/song/Project/workshop/MyApp/script/../t/view_TT.t"
	

• ./lib/MyAPP/View/TT.pm

package MyApp::View::TT;

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

__PACKAGE__->config(TEMPLATE_EXTENSION => '.tt');
	

Add Model

• ./script/myapp_create.pl model DB DBIC::Schema MyApp::Schema create=static [database_connection]

 exists "/Users/song/Project/workshop/MyApp/script/../lib/MyApp/DB"
 exists "/Users/song/Project/workshop/MyApp/script/../t"
created "/Users/song/Project/workshop/MyApp/script/../lib/MyApp/DB.pm"
created "/Users/song/Project/workshop/MyApp/script/../t/view_DB.t"
	

• ./lib/MyApp/Model/DB.pm

package MyApp::Model::DB;

use strict;
use base 'Catalyst::Model::DBIC::Schema';

1;
	

Standalone 서버 기동

• ./script/myapp_server.pl -r

require MyApp;

MyApp->run( $port, $host, {
    argv              => \@argv,
    'fork'            => $fork,
    keepalive         => $keepalive,
    restart           => $restart,
    restart_delay     => $restart_delay,
    restart_regex     => qr/$restart_regex/,
    restart_directory => $restart_directory,
    follow_symlinks   => $follow_symlinks,
} );
	

require MyApp

• Catalyst->import
• MyApp->config
• MyApp->setup

MyApp->run

• MyApp->prepare
• $c->dispatch
• $c->finalize

$c->dispatch

• Catalyst::Controller

__PACKAGE__->_dispatch_steps( [qw/_BEGIN _AUTO _ACTION/] );

sub _DISPATCH : Private {
    my ( $self, $c ) = @_;

    foreach my $disp ( @{ $self->_dispatch_steps } ) {
        last unless $c->forward($disp);
    }

    $c->forward('_END');
}
	

$c->dispatch

• _BEGIN
• _AUTO
• _ACTION
• _END

Plugins

• context를 확장
• Add Plugins to MyApp.pm

  
  use Catalyst qw/
    -Debug
    ConfigLoader
    Static::Simple
    Authentication
  /;
  	  

  
  $c->user;
  $c->user_exist;
  	  

Further More

• Catatlyst::Manual:
  http://search.cpan.org/~zarquon/Catalyst-Manual-5.7013/
• Wiki:
  http://dev.catalyst.perl.org/wiki/