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;