メモ

DBICでランダムに10件取り出す。

my $rs = $schema->resultset('tbl')->search(
    undef,
    {
        order_by => 'RANDOM()',
        rows     => 10,
    }
);

CatalystのControllerで使うときはこう。MyApp::Model::DBIC::tblってクラスを仮定してる。

my $rs = $c->model('DBIC::tbl')->search(
    ...
);