RSS作成でXML::Feed使ったら思いのほか簡単だった件

RSSを作ることになったのですが案外サクっとできたので共有です。

今回使ったのはXML::FeedというCPANモジュールです。
コードは自分が業務で書いたコードから適当にピックアップしただけなので、
使用の際は適当に変換＆加筆してください（嘘、本当はCatalystで書いてるからだいぶ違う）。

use utf8;
use XML::Feed;

# RSSの作成
my $rss = XML::Feed->new('RSS'); # バージョンの指定も可能
$rss->title($title);
$rss->description($text);
$rss->modified($modified_on);
$rss->link('http://hogehoge.com');

# item部分の作成
while(my $data = $data_list->next){
    my $entry = XML::Feed::Entry->new('RSS');
    $entry->title($data->text);
    $entry->link($data_>link);
    $entry->modified($data->modified_on);
    $rss->add_entry($entry);
}

# XMLとして出力（Atomもいけるとか）
print $rss->as_xml;