perlbrew+Carton+Amon2+Test::mysqldみたいな

モダンな感じでperlでウェブアプリ作りたいなーと思ってほげほげしてます。メモ書き。

最近の流行りでは、system perlなんてもう使わないわけで、自分でperlをmakeして入れるもの。それを簡単に管理できるのがperlbrew。で、アプリ毎にperlを入れてもいいなぁとは思ったんですが、さすがにそこまで仰々しくしたくはない。でも、CPANモジュールについてはアプリ毎に依存が無いようにしたい(あるアプリが変にバージョンアップしちゃって他が動かないとか嫌)。

どうするのがいいかなーと色々考えたんですが、そういえばmiyagawaさんのCartonというのが、依存関係やバージョンも含めてCPANモジュール管理できるということでこれをアプリ毎に使うのが正統だろうなと思ったので使ってみた。

まずはperlbrewでインストール

これは説明の通り。

$ curl -kL http://install.perlbrew.pl | bash
$ echo source ~/perl5/perlbrew/etc/bashrc >> ~/.bashrc
$ source ~/.bashrc
$ perlbrew install --notest perl-5.14.2
$ perlbrew install-cpanm
$ perlbrew switch perl-5.14.2
$ perl -V

testに時間かかるので–notestでさぼってます。

perlbrewで入れたperlは更新されないようにする

perlbrewのperl使ってる状態でcpanmとかしちゃうと普通にsite_perlに入っちゃうのがちょっとイヤン。PERL_CPANM_OPTとかで場所を指定してもいいんですが、良く調べてみると、perlbrew自身にそういう感じの機能がありました。

$ perlbrew lib create amon2
$ perlbrew switch perl-5.14.2@amon2
$ source ~/.bashrc

これでCPANモジュールとかは~/.perlbrew/libs/perl-5.14.2@amon2/の下に入るので、Amon2をここにインストールしてしまいましょう(amon2-setup.plを使いたいため)。

$ cpanm -v Amon2
$ amon2-setup.pl MyApp

これでAmon2のデフォルトのスケルトンができあがりますね。そうしたら一旦まっさらなlibを作って、そちらにcartonを入れましょう。

$ perlbrew lib create carton
$ perlbrew switch perl-5.14.2@carton
$ source ~/.bashrc
$ cpanm -v Carton

あとは、アプリ毎にcarton installすればいいかなぁとも思ったんですが、なんとなくperlbrewの方は気軽に更新されたくないのでいっそファイルシステムでロックしてしまいました。

$ sudo chattr -R +i ~/perl5/perlbrew/perls/perl-5.14.2/
$ sudo chattr -R +i ~/.perlbrew/libs/perl-5.14.2@carton/

こうしておくと、例え間違えて普通にcpanm実行しても

$ cpanm -v Hoge
(snip)
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
ERROR: Can't create '/home/riywo/.perlbrew/libs/perl-5.14.2@carton/bin'
Do not have write permissions on '/home/riywo/.perlbrew/libs/perl-5.14.2@carton/bin'
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 at -e line 1
make: *** [pure_perl_install] Error 13
FAIL
! Installing CPAN failed. See /home/riywo/.cpanm/build.log for details.

みたいな感じになって安心です。

あとはcartonライフ！

というわけで、既にMyAppというプロジェクトが出来上がっているので、cartonを使って必要モジュールを管理しながら入れてしまいます。

$ cd MyApp
$ carton install

すでにMakefile.PLが書かれているので、これで最低限必要なモジュールはインストールされます。あとは出来上がったcarton.lockをgit管理にしてしまえばいい感じです。

cartonでいれたコマンドとかは当然パスが通っていないので、以下の様に実行する必要があります。

$ carton exec plackup -- app.psgi -p 5000

daemontoolsで起動するにはこんな感じで。

#!/bin/sh
exec 2>&1
export PERL5LIB=/home/riywo/.perlbrew/libs/perl-5.14.2@carton/lib/perl5/x86_64-linux:/home/riywo/.perlbrew/libs/perl-5.14.2@carton/lib/perl5:
export PATH=/home/riywo/.perlbrew/libs/perl-5.14.2@carton/bin:/home/riywo/perl5/perlbrew/bin:/home/riywo/perl5/perlbrew/perls/perl-5.14.2/bin/:${PATH}
cd /home/riywo/MyApp
exec setuidgid riywo carton exec plackup -- app.psgi > /tmp/myapp.log 2>&1

Amon2でMySQL使いたい

最近のAmon2はsqliteを使ってどこでも簡単に動く感じになってるんですが、諸般の都合によりやっぱりMySQLでやりたいです。テストもsqlite前提だったのでちょこっと書きなおしてTest::mysqldを使う様にしました。もちろん、Makefile.PLにTest::mysqld足してcarton installをお忘れなく。

テスト実行はcarton exec経由で。

$ carton exec prove

(あとt/00_compile.tもuse t::Util;しないとproveがコケる気がします。)

参考

• テストのためにデーモンを自動的に起動するやりかた2011年版 – Perl Advent Calendar Japan 2011 Test Track

おわりに

amon2-setup.plのためだけにAmon2のインストールが必要なのは確かにイマイチな感じがしますね。

参考

• Amon2はAmon2::Setupを別distにしたほうがいいんじゃないかという話 – nihen’s diary