--- trunk/lib/Frey/Feed.pm	2008/11/05 08:20:58	286
+++ trunk/lib/Frey/Feed.pm	2008/11/05 08:21:06	295
@@ -10,6 +10,8 @@
 use Data::Feed;
 use Frey::Types;
 
+with 'Frey::Storage';
+
 has uri => (
 	is => 'rw',
 	isa => 'Uri', coerce => 1,
@@ -34,10 +36,17 @@
 );
 
 use Data::Dump qw/dump/;
+
 sub data {
 	my ($self) = @_;
-	warn "data ",$self->uri," ",dump($self->feed->entries);
-	$self->feed->entries;
+	my $path = 'var/feed/' . $self->uri->host . '/' . $self->uri->path;
+	my $data = $self->load( $path );
+	return $data if $data;
+
+	warn "# fetch ",$self->uri;
+	warn "# data ", dump( $self->feed->entries );
+	$self->store( $path, $self->feed->entries );
+	return $self->feed->entries;;
 }
 
 1;