First cut at enclosures

[catagits/XML-Feed.git] / lib / XML / Feed / Entry.pm

diff --git a/lib/XML/Feed/Entry.pm b/lib/XML/Feed/Entry.pm
index 4f18399..0b66d1a 100644 (file)
--- a/lib/XML/Feed/Entry.pm
+++ b/lib/XML/Feed/Entry.pm
@@ -20,10 +20,10 @@ sub new {
     my $class = shift;
     my($format) = @_;
     $format ||= 'Atom';
-    my $format_class = 'XML::Feed::' . $format;
+    my $format_class = 'XML::Feed::Format::' . $format;
     eval "use $format_class";
     Carp::croak("Unsupported format $format: $@") if $@;
-    my $entry = bless {}, join('::', __PACKAGE__, $format);
+    my $entry = bless {}, join('::', __PACKAGE__, "Format", $format);
     $entry->init_empty or return $class->error($entry->errstr);
     $entry;
 }
@@ -54,6 +54,8 @@ sub issued;
 sub modified;
 sub lat;
 sub long;
+sub format;
+sub enclosure;
 
 1;
 __END__