First cut at enclosure support

diff --git a/lib/XML/Feed/Enclosure.pm b/lib/XML/Feed/Enclosure.pm
new file mode 100644 (file)
index 0000000..dcbd323
--- /dev/null
+++ b/lib/XML/Feed/Enclosure.pm
@@ -0,0 +1,71 @@
+package XML::Feed::Enclosure;
+use strict;
+
+use strict;
+
+use base qw( Class::ErrorHandler );
+
+sub wrap {
+    my $class = shift;
+    my($c) = @_;
+    bless { %$c }, $class;
+}
+*new = \&wrap;
+
+sub _var {
+    my $enclosure = shift;
+    my $var = shift;
+    $enclosure->{$var} = shift if @_;
+    $enclosure->{$var};
+}
+
+sub type   { shift->_var('type',   @_) }
+sub length { shift->_var('length', @_) }
+sub url    { shift->_var('url',    @_) }
+
+1;
+__END__
+
+=head1 NAME
+
+XML::Feed::Enclosure - Wrapper for enclosure objects
+
+=head1 SYNOPSIS
+
+    my ($enclosure) = $entry->enclosures;
+    print $enclosure->type;
+
+=head1 DESCRIPTION
+
+I<XML::Feed::Enclosure> represents a content object in an I<XML::Feed::Entry>
+entry in a syndication feed. 
+
+=head1 USAGE
+
+=head2 wrap
+
+Take params and turn them into a I<XML::Feed::Enclosure> object.
+
+=head2 new
+
+A synonym for I<wrap>.
+
+=head2 $enclosure->url
+
+The url of the object.
+
+=head2 $enclosure->type
+
+The MIME type of the item referred to in I<url>.
+
+=head2 $enclosure->length
+
+The length of object refereed to in I<url>
+
+=head1 AUTHOR & COPYRIGHT
+
+Please see the I<XML::Feed> manpage for author, copyright, and license
+information.
+
+=cut
+