/[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 297 by dpavlin, Wed Nov 5 08:21:08 2008 UTC
# Line 9  Frey::Feed - represent RSS/Atom feed usi Line 9  Frey::Feed - represent RSS/Atom feed usi
9    
10  use Data::Feed;  use Data::Feed;
11  use Frey::Types;  use Frey::Types;
12    use Data::Dump qw/dump/;
13    
14    with 'Frey::Storage';
15    
16  has uri => (  has uri => (
17          is => 'rw',          is => 'rw',
18          isa => 'Uri', coerce => 1,          isa => 'Uri', coerce => 1,
19          required => 1,          required => 1,
20            default => 'http://blog.rot13.org/index.xml',
21  );  );
22    
23  has feed => (  has feed => (
# Line 21  has feed => ( Line 25  has feed => (
25          lazy => 1,          lazy => 1,
26          default => sub {          default => sub {
27                  my ($self) = @_;                  my ($self) = @_;
28                    my $path = 'var/feed/' . $self->uri->host . '/' . $self->uri->path;
29                    my $data = $self->load( $path );
30                    if ( defined $data ) {
31                            return $data;
32                    }
33    
34                  warn "parse ", $self->uri;                  warn "parse ", $self->uri;
35                  Data::Feed->parse( $self->uri );                  my $feed = Data::Feed->parse( $self->uri );
36    
37                    warn "# data ", dump( $feed );
38                    $self->store( $path, $feed );
39          },          },
40  );  );
41    
42  has title => (  has title => (
43          is => 'ro',          is => 'ro',
44          lazy => 1,          lazy => 1,
45          default => sub { $_[0]->feed->title }          default => sub { $_[0]->feed->title },
46  );  );
47    
48  use Data::Dump qw/dump/;  sub entries { $_[0]->feed->entries }
49    
50  sub data {  sub data {
51          my ($self) = @_;          my ($self) = @_;
52          warn "data ",$self->uri," ",dump($self->feed->entries);          return $self->entries;
         $self->feed->entries;  
53  }  }
54    
55  1;  1;
Legend:
Removed from v.282  
changed lines
  Added in v.297
  ViewVC Help
Powered by ViewVC 1.1.26