Add enclosure code.

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

diff --git a/lib/XML/Feed/Format/Atom.pm b/lib/XML/Feed/Format/Atom.pm
index 4846947..071e9f7 100644 (file)
--- a/lib/XML/Feed/Format/Atom.pm
+++ b/lib/XML/Feed/Format/Atom.pm
@@ -287,4 +287,16 @@ sub long {
     }
 }
 
+
+sub add_enclosure {
+    my($entry, $enclosure) = @_;
+    my $link = XML::Atom::Link->new;
+    $link->rel('enclosure');
+    $link->type($enclosure->type);
+    $link->href($enclosure->url);
+    $link->length($enclosure->length);
+    $entry->{entry}->add_link($link);
+};
+
+
 1;