DateTime の出力がうれしくなった

前回の記事*1で、DateTime がAtomFeed 的にうれしくないという記事を書いておいたら、id:teahut こと「たけまる」さん御本人からアドバイスが！

"print Atompub::DateTime->new" でそれっぽい出力になりますよ．詳しくは perldoc Atompub::DateTime まで．

これがあるから、おバカな記事を書きまくるのはやめられないですね！
せっかくアドバイスを頂いたので、さっそくやってみることにしました。

今までは

# $dt は "DBIC + DateTime::Format::Pg" から得た DateTime オブジェクト 
$dt->strftime("%Y-%m-%dT％H:%M:%S%Q");  #=> 2009-01-18T10:26:34+09:00

と書いていたけれど、Atompub::DateTime を使うと

print Atompub::DateTime->new($dt); #=> 2009-01-18T10:26:34+09:00

お、お、お。
カンタンにかけました。すばらしいですね。
わーい。

*1:http://d.hatena.ne.jp/magicalhat/20090116