/[Frey]/branches/mojo/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 /branches/mojo/lib/Frey/Feed.pm

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

revision 260 by dpavlin, Tue Nov 4 18:56:01 2008 UTC revision 261 by dpavlin, Tue Nov 4 22:13:10 2008 UTC
# Line 10  Frey::Feed - represent RSS/Atom feed usi Line 10  Frey::Feed - represent RSS/Atom feed usi
10  use Data::Feed;  use Data::Feed;
11  use Frey::Types;  use Frey::Types;
12    
13    with 'Frey::Storage';
14    
15  has uri => (  has uri => (
16          is => 'rw',          is => 'rw',
17          isa => 'Uri', coerce => 1,          isa => 'Uri', coerce => 1,
# Line 34  has title => ( Line 36  has title => (
36  );  );
37    
38  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
39    
40  sub data {  sub data {
41          my ($self) = @_;          my ($self) = @_;
42          warn "data ",$self->uri," ",dump($self->feed->entries);          my $path = 'var/feed/' . $self->uri->host . '/' . $self->uri->path;
43          $self->feed->entries;          my $data = $self->load( $path );
44            return $data if $data;
45    
46            warn "# fetch ",$self->uri;
47            warn "# data ", dump( $self->feed->entries );
48            $self->store( $path, $self->feed->entries );
49            return $self->feed->entries;;
50  }  }
51    
52  1;  1;
Legend:
Removed from v.260  
changed lines
  Added in v.261
  ViewVC Help
Powered by ViewVC 1.1.26