CatalystでDBICのプロファイリングがしたかったのでDBIx::Class::QueryLogを使ってみた。
$c->model('Model')->storage->debugobj($ql); $c->model('Model')->storage->debug(1); $c->stash->{querylog} = $ql;
とコントローラーに書いておく。ほんとはモデルのほうに書くべきなのか?クックブックよくわからん。
あとはViewを用意すれば、結果(この場合は遅い順に5つ)が画面に吐き出される。