新しいblogに移行しました

新ブログ "All Yout Bugs Are Belong To Ass" に移行しました!

2008-02-27

[生活]そろそろ花粉の厳しい時期になってきた

いつも思うのだけど、花粉症って公害なんだよね?
対策品の購入費用の補填とかないのか~?

2008-02-26

[Perl]Class::Component プラグインロード直後からインスタンスを生成できた

initを使えばできる模様。
プラグイン側はだいたいこんな感じ。

package Class::Component::Plugin::DBIS;
use strict;
use warnings;
use base 'Class::Component::Plugin';
use DBIx::Simple;
use SQL::Abstract;

sub init : Method {
my ($self, $c, $args) = @_;
$c->{DBIS} = DBIx::Class->connect(
@{$self->{config}->{connect_info}}
);
$c->{DBIS}->abstract = SQL::Abstract->new;
}


で、スクリプト側で、

my @members = $c->{DBIS}->select(
'member',
['*'],
{id=>$id}
);

みたいにできる。これは便利。

2008-02-24

[生活]中掃除&部屋の模様替えをした

我が家のチビ共のおもちゃ箱の中が紙くずだらけになっていた。。。

ざっとゴミ袋1つ分くらい。ありえな~い><

[CPAN]ん~、パスワード発行してくれよ~

Who is Whoに名前とメアドが掲載された模様。
あれ、メアド!あってるじゃん!!オイラtypoしてねー!
じゃあ何でオイラにはパスワードが送られてこないんだ?

Forgot Password?に自分のCPANアカウント突っ込んでもErrorにはならないし、
「今メールでパスワード変更用チケットアドレスおくったよ!届かなかったら連絡plz!」(チョー訳)
とか言ってくれるんだが、その癖に肝心のメールは来ない(12時間待った)し、この場合の連絡先が何処なのかってのも言及が無い模様。。。
これまた困った。。。。