Add ability to convert with fields that have multiple values

diff --git a/lib/XML/Feed.pm b/lib/XML/Feed.pm
index bc1bf57..75e21cb 100644 (file)
--- a/lib/XML/Feed.pm
+++ b/lib/XML/Feed.pm
@@ -121,9 +121,9 @@ sub convert {
     my($format) = @_;
     my $new = XML::Feed->new($format);
     for my $field (qw( title link description language author copyright modified generator )) {
-        my $val = $feed->$field();
-        next unless defined $val;
-        $new->$field($val);
+        my @values = $feed->$field();
+        next unless @values && defined $values[0];
+        $new->$field(@values);
     }
     for my $entry ($feed->entries) {
         $new->add_entry($entry->convert($format));

diff --git a/lib/XML/Feed/Entry.pm b/lib/XML/Feed/Entry.pm
index f2fadb2..9cce50e 100644 (file)
--- a/lib/XML/Feed/Entry.pm
+++ b/lib/XML/Feed/Entry.pm
@@ -35,10 +35,10 @@ sub convert {
     my($format) = @_;
     my $new = __PACKAGE__->new($format);
     for my $field (qw( title link content summary category author id issued modified lat long )) {
-        my $val = $entry->$field();
-        next unless defined $val;
-        next if blessed $val && $val->isa('XML::Feed::Content') && ! defined $val->body;
-        $new->$field($val);
+        my @values = $entry->$field();
+        next unless @values && defined $values[0];
+        next if blessed $values[0] && $values[0]->isa('XML::Feed::Content') && ! defined $values[0]->body;
+        $new->$field(@values);
     }
     $new;
 }