Parent Directory | Revision Log
r3124@llin (orig r248): dpavlin | 2008-11-04 18:26:26 +0100 wrap Data::Feed into itrospectable object
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 | ); | ||
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; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |