blog.nomadscafe.jp

XML::AtomをCategory要素に対応させるpatch。

http://nomadscafe.jp/tmp/xml_atom_category.patch

XML::Atom::Categoryを新しく追加と、XML::Atom::Thingへのメソッド追加がされてます。

my $entry = XML::Atom::Entry->new(Version=>1);
$entry->title('My Post');
$entry->content('The content of my post.');

my $category1 = XML::Atom::Category->new(Version=>1);
$category1->term('foooo');
$category1->scheme('http://example.org/tag/foooo');
my $category2 = XML::Atom::Category->new(Version=>1);
$category2->term('baaaaa');

$entry->category($category1,$category2);

print join(",",map{$_->term} $entry->category),"\n";

これで動きました。XML::Feedの方もこれに対応できればaggregateが楽になりそうと思われ。
調べてて思ったけど、XML::Atom自体は、Atomの方が（とくにPP）で流動的なのであまり手を加えず、デフォルト0.3のままがいいのかなぁ。