1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
package Perlanet::Entry;
use 5.10.0;
use strict;
use warnings;
use Moose;
=head1 NAME
Perlanet::Entry - represents an entry in a feed
=head1 DESCRIPTION
This is a wrapper around L<XML::Feed::Entry> with support for linking back to
the feed from the entry
=cut
has '_entry' => (
isa => 'XML::Feed::Entry',
is => 'ro',
required => 1,
handles => [qw( title link issued body summary content modified author )]
);
has 'feed' => (
isa => 'Perlanet::Feed',
is => 'ro',
required => 1
);
no Moose;
__PACKAGE__->meta->make_immutable;
1;
|
