Add ability to convert with fields that have multiple values

[catagits/XML-Feed.git] / lib / XML / Feed / Entry.pm

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;
 }