lib/Frey/Feed.pm

package Frey::Feed;
use Moose;

=head1 NAME

Frey::Feed - represent RSS/Atom feed using L<Data::Feed>

=cut

use Data::Feed;
use Frey::Types;
use Data::Dump qw/dump/;

with 'Frey::Storage';

has uri => (
        is => 'rw',
        isa => 'Uri', coerce => 1,
        required => 1,
        default => 'https://blog.rot13.org/index.xml',
);

has feed => (
        is => 'ro',
        lazy => 1,
        default => sub {
                my ($self) = @_;
                my $path = 'var/feed/' . $self->uri->host . '/' . $self->uri->path;
                my $data = $self->load( $path );
                if ( defined $data ) {
                        return $data;
                }

                warn "parse ", $self->uri;
                my $feed = Data::Feed->parse( $self->uri );
                $self->store( $path, $feed );
                $feed;
        },
);

has title => (
        is => 'ro',
        lazy => 1,
        default => sub { $_[0]->feed->title },
);

sub entries { $_[0]->feed->entries }

sub data {
        my ($self) = @_;
        # data should return single element!
        [ $self->entries ];
}

1;
1	package Frey::Feed;
2	use Moose;
3
4	=head1 NAME
5
6	Frey::Feed - represent RSS/Atom feed using L<Data::Feed>
7
8	=cut
9
10	use Data::Feed;
11	use Frey::Types;
12	use Data::Dump qw/dump/;
13
14	with 'Frey::Storage';
15
16	has uri => (
17	is => 'rw',
18	isa => 'Uri', coerce => 1,
19	required => 1,
20	default => 'https://blog.rot13.org/index.xml',
21	);
22
23	has feed => (
24	is => 'ro',
25	lazy => 1,
26	default => sub {
27	my ($self) = @_;
28	my $path = 'var/feed/' . $self->uri->host . '/' . $self->uri->path;
29	my $data = $self->load( $path );
30	if ( defined $data ) {
31	return $data;
32	}
33
34	warn "parse ", $self->uri;
35	my $feed = Data::Feed->parse( $self->uri );
36	$self->store( $path, $feed );
37	$feed;
38	},
39	);
40
41	has title => (
42	is => 'ro',
43	lazy => 1,
44	default => sub { $_[0]->feed->title },
45	);
46
47	sub entries { $_[0]->feed->entries }
48
49	sub data {
50	my ($self) = @_;
51	# data should return single element!
52	[ $self->entries ];
53	}
54
55	1;