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 => 'https://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	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	default => 'https://blog.rot13.org/index.xml',
18	);
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;