resultsetがウザい

my $f = $schema->resultset('Foo');

引用元: Perl/DBIC - Nekokak's core dump
いちいちresultsetを呼ぶのはめどいので、こうやれば少しだけ楽に書ける。
で、これを利用して、今書いてるコードはこんな感じ。

foreach (qw/Image Tag ImageTag/) {
    $table{$_} = $schema->resultset($_);
}

ハッシュに突っ込んでおく。
スキーマを指定しないといけないのに、間違えてテーブル名を指定してて悩んだのは内緒です。