Added an image() method to Feed objects.

Does something useful for RSS feeds; not for Atom feeds currently.

diff --git a/lib/XML/Feed.pm b/lib/XML/Feed.pm
index 6f3ae01..ee1c15c 100644 (file)
--- a/lib/XML/Feed.pm
+++ b/lib/XML/Feed.pm
@@ -163,6 +163,7 @@ sub add_entry;
 sub entries;
 sub as_xml;
 sub id;
+sub image;
 
 sub tagline { shift->description(@_) }
 sub items   { $_[0]->entries     }

diff --git a/lib/XML/Feed/Format/Atom.pm b/lib/XML/Feed/Format/Atom.pm
index 0a38ed6..853bd8f 100644 (file)
--- a/lib/XML/Feed/Format/Atom.pm
+++ b/lib/XML/Feed/Format/Atom.pm
@@ -113,8 +113,9 @@ sub author {
     }
 }
 
-
-
+sub image {
+    return;
+}
 
 sub modified {
     my $feed = shift;

diff --git a/lib/XML/Feed/Format/RSS.pm b/lib/XML/Feed/Format/RSS.pm
index 50f2439..6b91614 100644 (file)
--- a/lib/XML/Feed/Format/RSS.pm
+++ b/lib/XML/Feed/Format/RSS.pm
@@ -162,6 +162,13 @@ sub modified {
     }
 }
 
+sub image {
+    my $self = shift;
+    my $rss = $self->{rss};
+
+    return @_ ? $rss->image(@_) : $rss->image('url');
+}
+
 sub entries {
     my $rss = $_[0]->{rss};
     my @entries;