Class::DBI 0.96 以降のキャッシュ機構が mod_perl 環境で悪さをする件。 startup.pl に $Class::DBI::Weaken_Is_Available = 0; と書いておけば OK …… ではなかった。 普通に $obj = Obj->retrieve($id); などとして取ってくる場合は上記記述でキャッシュし…

$ENV{REMOTE_ADDR} ではなく、$c->req->address を使う。 CGI, test server では $ENV{REMOTE_ADDR} が取れるが、mod_perl 環境では取得できないので。

Catalyst::Model::DBIC で View が扱えない話。 素の DBIx::Class ならば特に問題はない。 package PgTables; use base qw/DBIx::Class/; __PACKAGE__->load_components(qw/Core DB/); __PACKAGE__->connection('dbi:Pg:dbname=template1', 'fujiwara', '');…

Class::DBI と DBIx::Class のパフォーマンス比較。最初は join の扱いを調べるために始めたのだけど、DBIx はパフォーマンスに気を遣って実装されているようなので、単純に速度を比べてみる。とあるアプリケーションで作った、tag のテーブル。データ件数10…

Catalyst::Plugin::PageCache を使って caching をするようにしたら、 何故か時々 Internal Server Error が起きる。 access_log にはこのような記録。何故に HTTP Status が '1' なのだ? *.*.*.* - - [03/Mar/2006:05:17:05 +0900] "GET / HTTP/1.1" 1 757 …