First cut at enclosures

[catagits/XML-Feed.git] / lib / XML / Feed / Format / RSS.pm

diff --git a/lib/XML/Feed/Format/RSS.pm b/lib/XML/Feed/Format/RSS.pm
index c5c11b7..55a51f7 100644 (file)
--- a/lib/XML/Feed/Format/RSS.pm
+++ b/lib/XML/Feed/Format/RSS.pm
@@ -324,15 +324,19 @@ sub long {
     }
 }
 
-sub add_enclosure {
-    my($entry, $enclosure) = @_;
-    $entry->{entry}->{enclosure} = XML::RSS::LibXML::MagicElement->new(
-        attributes => {
+sub enclosure {
+    my $entry  = shift;
+
+    if (@_) {
+        my $enclosure = shift;
+        $entry->{entry}->{enclosure} = {
                  url    => $enclosure->{url},
                  type   => $enclosure->{type},
                  length => $enclosure->{length}
-        },
-    );
+            };
+    } else {
+        return XML::Feed::Enclosure->new($entry->{entry}->{enclosure});
+    }
 }
 
 1;