--- trunk/lib/Frey/Feed.pm	2008/11/05 08:21:06	296
+++ trunk/lib/Frey/Feed.pm	2008/11/05 08:21:08	297
@@ -9,6 +9,7 @@
 
 use Data::Feed;
 use Frey::Types;
+use Data::Dump qw/dump/;
 
 with 'Frey::Storage';
 
@@ -24,8 +25,17 @@
 	lazy => 1,
 	default => sub {
 		my ($self) = @_;
+		my $path = 'var/feed/' . $self->uri->host . '/' . $self->uri->path;
+		my $data = $self->load( $path );
+		if ( defined $data ) {
+			return $data;
+		}
+
 		warn "parse ", $self->uri;
-		Data::Feed->parse( $self->uri );
+		my $feed = Data::Feed->parse( $self->uri );
+
+		warn "# data ", dump( $feed );
+		$self->store( $path, $feed );
 	},
 );
 
@@ -35,19 +45,10 @@
 	default => sub { $_[0]->feed->title },
 );
 
-sub entries { [ $_[0]->feed->entries ] }
-
-use Data::Dump qw/dump/;
+sub entries { $_[0]->feed->entries }
 
 sub data {
 	my ($self) = @_;
-	my $path = 'var/feed/' . $self->uri->host . '/' . $self->uri->path;
-	my $data = $self->load( $path );
-	return $data if defined $data;
-
-	warn "# fetch ",$self->uri;
-	warn "# data ", dump( $self->entries );
-	$self->store( $path, ( $self->entries ) );
 	return $self->entries;
 }