use wantarray for backwards compatability

diff --git a/lib/XML/Feed/Atom.pm b/lib/XML/Feed/Atom.pm
index 9ca9b0c..9285e63 100644 (file)
--- a/lib/XML/Feed/Atom.pm
+++ b/lib/XML/Feed/Atom.pm
@@ -160,7 +160,8 @@ sub category {
         $entry->{entry}->add_category({ term => $_[0] });
     } else {
         my $category = $entry->{entry}->category;
-        $category ? ($category->label || $category->term) : $entry->{entry}->getlist($ns, 'subject');
+        my @return = $category ? ($category->label || $category->term) : $entry->{entry}->getlist($ns, 'subject');
+        return wantarray? @return : $return[0];
     }
 }
 

diff --git a/t/01-parse.t b/t/01-parse.t
index ad5a8c5..b1939d1 100644 (file)
--- a/t/01-parse.t
+++ b/t/01-parse.t
@@ -1,7 +1,7 @@
 # $Id: 01-parse.t 1921 2006-02-28 02:50:52Z btrott $
 
 use strict;
-use Test::More tests => 72;
+use Test::More tests => 75;
 use XML::Feed;
 use URI;
 
@@ -58,6 +58,7 @@ for my $file (sort keys %Feeds) {
     is($dt->iso8601, '2004-05-30T07:39:25');
     like($entry->content->body, qr/<p>Hello!<\/p>/);
     is($entry->summary->body, 'Hello!...');
+    is(($entry->category)[0], 'Travel');
     is($entry->category, 'Travel');
     is($entry->author, 'Melody');
     ok($entry->id);