DBIx::Class と mysql で utf8 使うとき

素で使うと mysql→perl 時点でマルチバイトが ? に変換されちゃうので、SET names utf8 をする必要あり。DBIC では以下のように実行すると吉。

my $schema = MyDB->connect($CONNECT_STRING, $USERNAME, $PASSWORD);
$schema->storage->dbh->do("SET names utf8");

ちょいはまったのでメモ。