Class::DBI::Plugin::DateTime

今さっきアップロードしました（そのうちCPANにのるでしょう）

  http://search.cpan.org/~dmaki/Class-DBI-Plugin-DateTime-0.01/

いままで自前で毎回書いてたのに嫌気がさしたのでモジュールにしてみたわけです。モジュールにしてしまえば

  package My::Data::Foo;

  use base qw(Class::DBI);

  use Class::DBI::Plugin::DateTime::Pg;


  __PACKAGE__->columns(All => qw(id a_timestamp));

  __PACKAGE__->has_timestamp('a_timestamp');

とかしておけば後で

  my $obj = My::Data::Foo->retrieve($key);

  my $dt  = $obj->a_timestamp();

  print $dt->ymd, "\n";

とかできるのですよ。MySQLでもできるぞー。うっほほ。