バイト列と文字列の件は修正したけど、IOのキャラクタセットがShift_JIS決め打ちになってる。これはポータブルじゃないから明日書き直します。
resultsetがウザい
my $f = $schema->resultset('Foo');
引用元: Perl/DBIC - Nekokak's core dump
いちいちresultset
を呼ぶのはめどいので、こうやれば少しだけ楽に書ける。
で、これを利用して、今書いてるコードはこんな感じ。
foreach (qw/Image Tag ImageTag/) { $table{$_} = $schema->resultset($_); }
ハッシュに突っ込んでおく。
スキーマを指定しないといけないのに、間違えてテーブル名を指定してて悩んだのは内緒です。