/[Frey]/trunk/lib/Frey/Feed.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Feed.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 282 by dpavlin, Wed Nov 5 08:20:55 2008 UTC revision 304 by dpavlin, Wed Nov 5 12:32:36 2008 UTC
# Line 7  Frey::Feed - represent RSS/Atom feed usi Line 7  Frey::Feed - represent RSS/Atom feed usi
7    
8  =cut  =cut
9    
 use Data::Feed;  
10  use Frey::Types;  use Frey::Types;
11    use Frey::Mirror;
12    
13    use Data::Feed;
14    use Data::Dump qw/dump/;
15    
16    with 'Frey::Storage';
17    
18  has uri => (  has uri => (
19          is => 'rw',          is => 'rw',
20          isa => 'Uri', coerce => 1,          isa => 'Uri', coerce => 1,
21          required => 1,          required => 1,
22            default => 'https://blog.rot13.org/index.xml',
23  );  );
24    
25  has feed => (  has feed => (
# Line 21  has feed => ( Line 27  has feed => (
27          lazy => 1,          lazy => 1,
28          default => sub {          default => sub {
29                  my ($self) = @_;                  my ($self) = @_;
30                  warn "parse ", $self->uri;                  my $xml = Frey::Mirror->new( uri => $self->uri )->content;
31                  Data::Feed->parse( $self->uri );                  Data::Feed->parse( \$xml );
32          },          },
33  );  );
34    
35  has title => (  has title => (
36          is => 'ro',          is => 'ro',
37          lazy => 1,          lazy => 1,
38          default => sub { $_[0]->feed->title }          default => sub { $_[0]->feed->title },
39  );  );
40    
41  use Data::Dump qw/dump/;  sub entries { $_[0]->feed->entries }
42    
43  sub data {  sub data {
44          my ($self) = @_;          my ($self) = @_;
45          warn "data ",$self->uri," ",dump($self->feed->entries);          # data should return single element!
46          $self->feed->entries;          [ $self->feed->entries ];
47  }  }
48    
49  1;  1;
Legend:
Removed from v.282  
changed lines
  Added in v.304
  ViewVC Help
Powered by ViewVC 1.1.26