id:nekokakさんの最近のエントリ（ANONクラスの生成 - Hatena::Diary::Neko::kak 500 Internal Server Error）を読んで、自分でも試してみた。 ついでに、globの勉強。 #!/usr/bin/env perl # anonclass_test.pl use strict; use warnings; { package Hoge; …

基本、Anonymous Classにuse baseさせて、その時につけた名前をdb_objectメソッドに突っ込めばいい気がする。 そうすると何が利点になるかというと、dsnとかの情報をハードコードする必要がなくなるので、MyApp::MoCoをuseした時に一緒に接続情報ももらうこ…

てっきり今まで勘違いしてたけど、createメソッドって、引数の%argsを、$class->db->insertメソッドでそのまま使っているので、もしかして、inflate_columnは通ってない…？因みに$class->db->insertメソッドは、SQL::Abstract経由で（え、ちょっとまって、SQ…

ふと思い出してiTunesで探してみたら、ちゃんとMain Stream Power Bandも登録されてるのね…。思わず表題曲を購入してしまった。

Kansas City Boulevard Big Bandposted with amazlet at 08.11.27Kansas City Boulevard Big Band Sea Breeze (1994-09-21)売り上げランキング: 74486Amazon.co.jp で詳細を見る このアルバム、大学時代に誰かに借りパクされてるんだよな…。 佳曲ぞろいのア…

Data::ObjectDriverでいうbulk_insertとか、DBICのpolulateみたいなやつ。 というか、Data::ObjectDriverで使ってるbulk_insertをほぼ丸コピしました。 #ported from Data::ObjectDriver::DBD::mysql sub bulk_insert { my $class = shift; my $dbh = $class…

今日、修理センターに届いたそうです。直ってほしい＞＜

今更だけど。 個人的に、ThinkPad大好きなユーザとして、また、いち地元民（実家が近所）として、応援したい所存であります。 →http://lenovoblogs.com/yamato/?language=ja

--- 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'); $…

アンプの修理をお願いしていたのだが、もう完了したそうな。早い。

マイルストーン代わりに。（あくまで自分の思考の垂れ流しなので、実際の定義、動作とは違います） イベント処理用の名前空間をPOE::Session->createで生成。 heapにその名前空間内で使える変数を格納できる（hashベース？）。 別のセッション（名前空間）へ…

POE習作につき。 まず実行スクリプト #!/usr/bin/env perl use strict; use warnings; use IO::Socket::INET; my $sock = IO::Socket::INET->new("localhost:12345"); $sock->timeout(10); $sock->say("wait:5"); $sock->say("wait:2"); $sock->shutdown(2);…

昨日は、僕がベースで参加させてもらっているビッグバンド、Groovy Wave Jazz Orchestraの定期演奏会でした。 写真はリハの様子。Picasaまともに使ったのは初めてだ。 見にきてくださった方々、お手伝いに快く応じてくださった方々、僕を受け入れてくれたメ…