Represent entries as Perlanet::Entry objects

davorg-cpan · Dec 13, 2009 · 1e79593 · 1e79593
1 parent 21688c9
commit 1e79593
Show file tree

Hide file tree

Showing 2 changed files with 28 additions and 2 deletions.
diff --git a/lib/Perlanet.pm b/lib/Perlanet.pm
@@ -15,6 +15,7 @@ use HTML::Tidy;
 use HTML::Scrubber;
 use TryCatch;
 use Perlanet::Feed;
+use Perlanet::Entry;
 
 use vars qw{$VERSION};
 
@@ -327,7 +328,13 @@ sub select_entries
         }
 
         push @feed_entries,
-            map { $_->title($feed->title . ': ' . $_->title); $_ } @entries;
+            map {
+                $_->title($feed->title . ': ' . $_->title);
+                Perlanet::Entry->new(
+                    _entry => $_,
+                    feed => $feed
+                );
+            } @entries;
     }
 
     return @feed_entries;
@@ -378,7 +385,7 @@ sub build_feed
     $f->self_link($self_url);
     $f->id($self_url);
 
-    $f->add_entry($_) for @entries;
+    $f->add_entry($_->_entry) for @entries;
     return $f;
 }
 

diff --git a/lib/Perlanet/Entry.pm b/lib/Perlanet/Entry.pm
@@ -0,0 +1,19 @@
+package Perlanet::Entry;
+use Moose;
+
+has '_entry' => (
+    isa => 'XML::Feed::Entry',
+    is => 'ro',
+    required => 1,
+    handles => [qw( title issued body summary content modified )]
+);
+
+has 'feed' => (
+    isa => 'Perlanet::Feed',
+    is => 'ro',
+    required => 1
+);
+
+no Moose;
+__PACKAGE__->meta->make_immutable;
+1;