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;

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) = @_;
                warn "parse ", $self->uri;
                Data::Feed->parse( $self->uri );
        },
);

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

use Data::Dump qw/dump/;
sub data {
        my ($self) = @_;
        warn "data ",$self->uri," ",dump($self->feed->entries);
        $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			use Data::Feed;
11			use Frey::Types;
12
13			has uri => (
14			is => 'rw',
15			isa => 'Uri', coerce => 1,
16			required => 1,
17	dpavlin	286	default => 'http://blog.rot13.org/index.xml',
18	dpavlin	282	);
19
20			has feed => (
21			is => 'ro',
22			lazy => 1,
23			default => sub {
24			my ($self) = @_;
25			warn "parse ", $self->uri;
26			Data::Feed->parse( $self->uri );
27			},
28			);
29
30			has title => (
31			is => 'ro',
32			lazy => 1,
33			default => sub { $_[0]->feed->title }
34			);
35
36			use Data::Dump qw/dump/;
37			sub data {
38			my ($self) = @_;
39			warn "data ",$self->uri," ",dump($self->feed->entries);
40			$self->feed->entries;
41			}
42
43			1;