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,
);

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