Catalystでアプリケーションを構築して、/helloにアクセスしてHelloWorldを出力する

Perl CPAN Catalyst

・前提条件
Catalystインストール済み。自分の環境では、Catalyst::Runtime '5.70'


・アプリケーション作成

$ cd /home/own
$ catalyst.pl MyApp


・ディレクトリ構成

MyApp/
   MyApp.pm
   Controller/
   Model/
   View/
lib/
root/
   static/
       images/
           *.png
   favicon.ico
script/
   myapp_server.pl
   myapp_create.pl
   myapp_test.pl
t/
   01app.t
   02pod.t
   03podcoverage.t
Changes
Makefile.PL
README
myapp.yml


・開発用Webサーバーの起動

$ cd MyApp
$ .script/myapp_server.pl -r

デフォルトだとPort：3000で起動されます。
例) http://localhost:3000/

  • r は、モジュールの変更を即座に反映するオプションです。これで再起動いらず。


・コントローラークラスに helloメソッドを追加する。

$ vi lib/MyApp/Controller/Root.pm
sub default : Private {
   my ( $self, $c ) = @_;

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

+=head2 hello
+
+=cut
+
+sub hello : Local {
+    my ( $self, $c ) = @_;
+
+    # Hello World
+    $c->res->body( 'Hello World!' );
+}
+


・表示されるか確認する。
http://localhost:3000/hello


Hello World!
と表示されればＯｋ。