Add pod and coverage tests

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

diff --git a/lib/XML/Feed/Entry.pm b/lib/XML/Feed/Entry.pm
index 4f4605a..4f18399 100644 (file)
--- a/lib/XML/Feed/Entry.pm
+++ b/lib/XML/Feed/Entry.pm
@@ -34,7 +34,7 @@ sub convert {
     my $entry = shift;
     my($format) = @_;
     my $new = __PACKAGE__->new($format);
-    for my $field (qw( title link content summary category author id issued modified )) {
+    for my $field (qw( title link content summary category author id issued modified lat long )) {
         my $val = $entry->$field();
         next unless defined $val;
         next if blessed $val && $val->isa('XML::Feed::Content') && ! defined $val->body;
@@ -52,6 +52,8 @@ sub author;
 sub id;
 sub issued;
 sub modified;
+sub lat;
+sub long;
 
 1;
 __END__
@@ -88,6 +90,10 @@ returns the new object.
 
 The title of the entry.
 
+=head2 $entry->base([ $base ])
+
+The url base of the entry.
+
 =head2 $entry->link([ $uri ])
 
 The permalink of the entry, in most cases, except in cases where it points
@@ -141,6 +147,14 @@ A I<DateTime> object representing the last-modified date of the entry.
 
 If present, I<$modified> should be a I<DateTime> object.
 
+=head2 $entry->wrap
+
+Take an entry in its native format and turn it into an I<XML::Feed::Entry> object.
+
+=head2 $entry->unwrap
+
+Take an I<XML::Feed::Entry> object and turn it into its native format.
+
 =head1 AUTHOR & COPYRIGHT
 
 Please see the I<XML::Feed> manpage for author, copyright, and license