lib/Frey/Feed.pm

package Frey::Feed;
use Moose;

=head1 NAME

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

=cut

use Frey::Types;
use Frey::Mirror;

use Data::Feed;
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 $xml = Frey::Mirror->new( uri => $self->uri )->content;
                Data::Feed->parse( \$xml );
        },
);

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->feed->entries ];
}

1;
1	dpavlin	282	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	dpavlin	304	use Frey::Types;
11			use Frey::Mirror;
12
13	dpavlin	282	use Data::Feed;
14	dpavlin	297	use Data::Dump qw/dump/;
15	dpavlin	282
16	dpavlin	295	with 'Frey::Storage';
17
18	dpavlin	282	has uri => (
19			is => 'rw',
20			isa => 'Uri', coerce => 1,
21			required => 1,
22	dpavlin	286	default => 'http://blog.rot13.org/index.xml',
23	dpavlin	282	);
24
25			has feed => (
26			is => 'ro',
27			lazy => 1,
28			default => sub {
29			my ($self) = @_;
30	dpavlin	304	my $xml = Frey::Mirror->new( uri => $self->uri )->content;
31			Data::Feed->parse( \$xml );
32	dpavlin	282	},
33			);
34
35			has title => (
36			is => 'ro',
37			lazy => 1,
38	dpavlin	296	default => sub { $_[0]->feed->title },
39	dpavlin	282	);
40
41	dpavlin	297	sub entries { $_[0]->feed->entries }
42	dpavlin	296
43	dpavlin	282	sub data {
44			my ($self) = @_;
45	dpavlin	299	# data should return single element!
46	dpavlin	304	[ $self->feed->entries ];
47	dpavlin	282	}
48
49			1;