--- trunk/lib/Frey/Feed.pm	2008/11/05 08:21:08	298
+++ trunk/lib/Frey/Feed.pm	2008/11/19 15:28:23	455
@@ -7,8 +7,10 @@
 
 =cut
 
-use Data::Feed;
 use Frey::Types;
+use Frey::Mirror;
+
+use Data::Feed;
 use Data::Dump qw/dump/;
 
 with 'Frey::Storage';
@@ -25,16 +27,8 @@
 	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;
-		my $feed = Data::Feed->parse( $self->uri );
-		$self->store( $path, $feed );
-		$feed;
+		my $xml = Frey::Mirror->new( uri => $self->uri )->content;
+		Data::Feed->parse( \$xml );
 	},
 );
 
@@ -46,9 +40,10 @@
 
 sub entries { $_[0]->feed->entries }
 
-sub data {
+sub as_data {
 	my ($self) = @_;
-	$self->entries;
+	# data should return single element!
+	[ $self->feed->entries ];
 }
 
 1;