Skip Menu |
 

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the XML-RSS-LibXML CPAN distribution.

Report information
The Basics
Id: 58773
Status: new
Priority: 0/
Queue: XML-RSS-LibXML

People
Owner: Nobody in particular
Requestors: skangas [...] skangas.se
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)

Attachments


Subject: Allow the item category to be an array reference, adding multiple tags as needed
Date: Thu, 24 Jun 2010 14:22:26 +0200
To: bug-XML-RSS-LibXML [...] rt.cpan.org
From: Stefan Kangas <skangas [...] skangas.se>
Download (untitled) / with headers
text/plain 430b
From the XML::RSS POD: "One can specify a category by using the 'category' key. 'category' can point to an array reference of categories:" The attached patch adds this feature to XML::RSS::LibXML. It is to some degree based on previous work in this area by Sergey Chernyshev (rt #22750). I have also pushed my changes to github here: http://github.com/skangas/XML-RSS-LibXML/tree/category-handle-array Thanks, Stefan Kangas
diff --git a/lib/XML/RSS/LibXML/ImplBase.pm b/lib/XML/RSS/LibXML/ImplBase.pm index 7cb488f..be5b20f 100644 --- a/lib/XML/RSS/LibXML/ImplBase.pm +++ b/lib/XML/RSS/LibXML/ImplBase.pm @@ -413,16 +413,26 @@ sub create_element_from_spec ); } - $node = $dom->createElement($e); - if (ref $value && eval { $value->isa('XML::RSS::LibXML::MagicElement') }) { - foreach my $attr ($value->attributes) { - $node->setAttribute($attr, $value->{$attr}); + my $values; + + if (($e eq 'category' || $e eq 'dc:subject') && ref $value eq 'ARRAY') { + $values = $value; + } else { + $values = [$value]; + } + + foreach my $value (@$values) { + $node = $dom->createElement($e); + if (ref $value && eval { $value->isa('XML::RSS::LibXML::MagicElement') }) { + foreach my $attr ($value->attributes) { + $node->setAttribute($attr, $value->{$attr}); + } + } elsif ($callback) { + $callback->($value); } - } elsif ($callback) { - $callback->($value); + $node->appendText($value); + $parent->appendChild($node); } - $node->appendText($value); - $parent->appendChild($node); last; } } diff --git a/t/2.0-generate.t b/t/2.0-generate.t index c4a140b..9227696 100644 --- a/t/2.0-generate.t +++ b/t/2.0-generate.t @@ -1,6 +1,6 @@ use strict; use File::Spec; -use Test::More tests => 29; +use Test::More tests => 32; BEGIN { use_ok("XML::RSS::LibXML"); @@ -21,6 +21,7 @@ use constant RSS_VERSION => "2.0"; use constant RSS_SAVEAS => File::Spec->catfile(BASEDIR, RSS_VERSION."-generated.xml"); use constant RSS_MOD_PREFIX => "my"; use constant RSS_MOD_URI => 'http://purl.org/my/rss/module/'; +use constant RSS_CATEGORY => 'MyCategory'; use constant RSS_BLOGCHANNEL_PREFIX => "blogChannel"; use constant RSS_BLOGCHANNEL_URI => "http://backend.userland.com/blogChannelModule"; @@ -49,7 +50,7 @@ ok( $rss->channel( docs => 'http://backend.userland.com/rss', managingEditor => 'editor\@example.com', webMaster => 'webmaster\@example.com', - category => 'MyCategory', + category => RSS_CATEGORY, ttl => '60', 'generator' => 'XML::RSS::LibXML Test', ), "Set RSS channel" ); @@ -75,7 +76,7 @@ ok($rss->add_item( 'link' => RSS_ITEM_LINK, description => RSS_ITEM_DESC, author => RSS_CREATOR, - category => 'MyCategory', + category => 'Foo', comments => "http://example.com/$short_date/comments.html", permaLink => "http://example.com/$short_date", pubDate => $pub_date, @@ -84,6 +85,11 @@ ok($rss->add_item( enclosure => { type=>"application/x-bittorrent", url => 'http://127.0.0.1/torrents/The_Passion_of_Dave_Winer.torrent' }, ), "Set one RSS item" ); +ok($rss->add_item( + title => RSS_ITEM_TITLE, + category => [ 'Foo', 'Bar', 'Baz' ], + ), "Add one RSS item using array ref as category" ); + ok( $rss->add_module( prefix => RSS_MOD_PREFIX, uri => RSS_MOD_URI ), "Added module: " . RSS_MOD_PREFIX ); @@ -117,7 +123,7 @@ is( $@, '', "Parsed " . RSS_SAVEAS ); is( $rss->{channel}->{lastBuildDate}, $current_date, "Last built: " . $current_date ); -is( $rss->{channel}->{category}, 'MyCategory', 'channel->{category}'); +is( $rss->{channel}->{category}, RSS_CATEGORY, 'channel->{category}'); cmp_ok( keys %{ $rss->{namespaces} }, ">=", 1, "RSS feed has at least one namespace"); @@ -133,12 +139,16 @@ SKIP: { isa_ok( $rss->{'items'} ,"ARRAY", "RSS object has an array of objects" ); -is( scalar( @{$rss->{'items'}} ), 1, "RSS object has one item" ); +is( scalar( @{$rss->{'items'}} ), 2, "RSS object has two items" ); is( $rss->{items}->[0]->{title}, RSS_ITEM_TITLE, RSS_ITEM_TITLE ); is( $rss->{items}->[0]->{link}, RSS_ITEM_LINK, RSS_ITEM_LINK ); +is_deeply( $rss->{items}->[0]->{category}, 'Foo' , "Correct category on entry 1"); + +is_deeply( $rss->{items}->[1]->{category}, [ 'Foo', 'Bar', 'Baz' ] , "Correct categories on entry 2"); + is( $rss->{items}->[0]->{description}, RSS_ITEM_DESC, RSS_ITEM_DESC ); is( $rss->{items}->[0]->{author}, RSS_CREATOR, RSS_CREATOR );


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.