DBIx::MoCo

--- MoCo.pm.orig   2008-06-04 07:03:18.000000000 +0900
+++ MoCo.pm        2008-11-24 12:25:12.000000000 +0900
@@ -255,6 +255,7 @@
 sub db_object {
     my $class = shift;
     if (my $db = shift) {
+        $db->require or die $@;
+        $db->execute('set names utf8');
         $class->_db_object($db);
     }
     $class->_db_object;

　個人的にはこういう動作の方が嬉しいので、MyApp::MoCoでDBIx::MoCoをuse baseしてるときに、no warnings 'redefine'をつけて上のように書き換えてる。
　それとも、僕がどっかでMyApp::DataBase(based on DBIx::MoCo::DataBase)をuseできるようなものを書いてないからだろうか…
（追記：2008-11-27）
　SYNOPSISよく見てみたら、普通にuseしてた。うん、じゃあやっぱりこれで。
（追記：2008-11-30）
　DBICのon_connect_do代わりに、DBクラスをrequireしたタイミングでset names utf8を実行。