my @entries;
for my $item (@{ $rss->{items} }) {
push @entries, XML::Feed::Entry::Format::RSS->wrap($item);
+ $entries[-1]->{_version} = $rss->{'version'};
}
@entries;
}
package XML::Feed::Entry::Format::RSS;
use strict;
+sub format { 'RSS ' . $_[0]->{'_version'} }
+
use XML::Feed::Content;
use base qw( XML::Feed::Entry );