--- branches/mojo/lib/Frey/Feed.pm 2008/11/04 22:13:10 261 +++ branches/mojo/lib/Frey/Feed.pm 2008/11/04 22:39:33 262 @@ -32,21 +32,23 @@ has title => ( is => 'ro', lazy => 1, - default => sub { $_[0]->feed->title } + default => sub { $_[0]->feed->title }, ); +sub entries { [ $_[0]->feed->entries ] } + use Data::Dump qw/dump/; sub data { my ($self) = @_; my $path = 'var/feed/' . $self->uri->host . '/' . $self->uri->path; my $data = $self->load( $path ); - return $data if $data; + return $data if defined $data; warn "# fetch ",$self->uri; - warn "# data ", dump( $self->feed->entries ); - $self->store( $path, $self->feed->entries ); - return $self->feed->entries;; + warn "# data ", dump( $self->entries ); + $self->store( $path, ( $self->entries ) ); + return $self->entries; } 1;