add helper methods to Entries

2 files changed, 31 insertions, 3 deletions

diff --git a/lib/Feed/HelperRole/FeedEntry.pm b/lib/Feed/HelperRole/FeedEntry.pm
new file mode 100644
index 0000000..3abe2e1
--- /dev/null
+++ b/lib/Feed/HelperRole/FeedEntry.pm
@@ -0,0 +1,28 @@
+package Feed::HelperRole::FeedEntry;
+use Moose::Role;
+use 5.012;
+use namespace::autoclean;
+
+requires 'content','summary','id','link','modified','issued';
+
+sub unified_id {
+    my ($self) = @_;
+
+    return $self->id // $self->link;
+}
+
+sub unified_date {
+    my ($self) = @_;
+
+    return $self->modified // $self->issued;
+}
+
+sub unified_content {
+    my ($self) = @_;
+
+    my $c = $self->content;
+    return $c if $c->body;
+    return $self->summary;
+}
+
+1;
diff --git a/lib/Feed/HelperRole/Mail.pm b/lib/Feed/HelperRole/Mail.pm
index 44a80c0..e0e239e 100644
--- a/lib/Feed/HelperRole/Mail.pm
+++ b/lib/Feed/HelperRole/Mail.pm
@@ -73,14 +73,14 @@ sub entry_to_mime {
     my ($self,$entry) = @_;
 
     my $from = 'feeder@localhost';
-    my $date = $entry->modified // $entry->issued
+    my $date = $entry->unified_date
         // DateTime->now(time_zone=>'UTC');
     my $from_name = $entry->author // $self->title;
     try { $from_name = decode('utf-8',$from_name) };
     $from_name =~ tr/,//d;
     my $subject = $entry->title//'(no title)';
     try { $subject = decode('utf-8',$subject) };
-    my $id   = sha1_hex($entry->id // $entry->link);
+    my $id   = sha1_hex($entry->unified_id);
 
     my $body = $self->prepare_body($entry);
 
@@ -116,7 +116,7 @@ sub prepare_body {
             feeder => $self,
             feed => $self->feed,
             entry => $entry,
-            content => $entry->content,
+            content => $entry->unified_content,
         },
         \$out,
     )