FVS::DBIC::Schema::Unique

Perl

さっき見かけたらSchemaベースのがないぽいので、ざっくりつくってみた。いまいち＞＜ package FormValidator::Simple::Plugin::DBIC::Schema::Unique; use strict; use warnings; use UNIVERSAL; use UNIVERSAL::require; use Scalar::Util qw/blessed/; …

2007-04-20

DBIx::Class::StorageReadOnlyバージョンUp

Perl

しました。前のバージョンはかなり中途半端だったすが、このバージョンで全てのinsert、update、deleteをチェックできるようになりました。use ttバージョンはYappoさん用です。どうぞお使いくださいませ。http://code.mfac.jp/trac/browser/CPAN/nekokak/…

2007-04-17

DBIx::Simpleでprepareキャッシュ

Perl

MySQLとかの場合はprepareキャッシュは効かないからあれだけど、 Oracleとかのばやいは有効なはず。 MySQLの場合でもある程度はよくなるはず。 --- Simple.pm (revision 17548) +++ Simple.pm (working copy) @@ -123,6 +123,42 @@ ### public methods +sub …

2007-04-16

デジカメ

Life

社内のデザイナーさんお勧めのデジカメをかいました。プロのカメラマンがサブカメラでもつような名機らしいす。素人ですがこれを気に頑張ってみようかと＞＜早くとどかないかなぁ。RICOH デジタルカメラ GR DIGITALposted with amazlet on 07.04.16リコ…

2007-04-10

今月の本

Life

いまさらな本もありつつ、読書期はいまだ終わらず。ハッカーと画家コンピュータ時代の創造者たちposted with amazlet on 07.04.10ポールグレアム Paul Graham 川合史朗オーム社 (2005/01)売り上げランキング: 12971おすすめ度の平均: 痛快です思考経路…

2007-04-10

DBIx::Class::Simple

Perl

すげーーーーー適当。 package DBIx::Class::Simple; use strict; use warnings; use base qw/DBIx::Class/; use Carp::Clan qw/^DBIx::Class/; use DBIx::Simple; sub simple_dbh { my $self = shift; return DBIx::Simple->connect(@{$self->storage->conn…

2007-04-10

DBICコネタ

Perl

find_or_createをよく使ってる人は find_or_newを使うようにしたほうがいいお。たとえば、 my $member = $self->model('Member')->find_or_create( { name => 'nekokak' } )->update( { moge => 'kekekek' } ); とかすると、 searchしてinsertしてupdateとク…