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 => 'http://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 );

                warn "# data ", dump( $feed );
                $self->store( $path, $feed );
        },
);

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

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

sub data {
        my ($self) = @_;
        return $self->entries;
}

1;
1	dpavlin	248	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	dpavlin	263	use Data::Dump qw/dump/;
13	dpavlin	248
14	dpavlin	261	with 'Frey::Storage';
15
16	dpavlin	248	has uri => (
17			is => 'rw',
18			isa => 'Uri', coerce => 1,
19			required => 1,
20	dpavlin	252	default => 'http://blog.rot13.org/index.xml',
21	dpavlin	248	);
22
23			has feed => (
24			is => 'ro',
25			lazy => 1,
26			default => sub {
27			my ($self) = @_;
28	dpavlin	263	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	dpavlin	248	warn "parse ", $self->uri;
35	dpavlin	263	my $feed = Data::Feed->parse( $self->uri );
36
37			warn "# data ", dump( $feed );
38			$self->store( $path, $feed );
39	dpavlin	248	},
40			);
41
42			has title => (
43			is => 'ro',
44			lazy => 1,
45	dpavlin	262	default => sub { $_[0]->feed->title },
46	dpavlin	248	);
47
48	dpavlin	263	sub entries { $_[0]->feed->entries }
49	dpavlin	262
50	dpavlin	248	sub data {
51			my ($self) = @_;
52	dpavlin	262	return $self->entries;
53	dpavlin	248	}
54
55			1;