--- trunk/lib/Frey/Feed.pm	2008/11/05 08:20:55	282
+++ trunk/lib/Frey/Feed.pm	2008/11/19 15:28:23	455
@@ -7,13 +7,19 @@
 
 =cut
 
-use Data::Feed;
 use Frey::Types;
+use Frey::Mirror;
+
+use Data::Feed;
+use Data::Dump qw/dump/;
+
+with 'Frey::Storage';
 
 has uri => (
 	is => 'rw',
 	isa => 'Uri', coerce => 1,
 	required => 1,
+	default => 'http://blog.rot13.org/index.xml',
 );
 
 has feed => (
@@ -21,22 +27,23 @@
 	lazy => 1,
 	default => sub {
 		my ($self) = @_;
-		warn "parse ", $self->uri;
-		Data::Feed->parse( $self->uri );
+		my $xml = Frey::Mirror->new( uri => $self->uri )->content;
+		Data::Feed->parse( \$xml );
 	},
 );
 
 has title => (
 	is => 'ro',
 	lazy => 1,
-	default => sub { $_[0]->feed->title }
+	default => sub { $_[0]->feed->title },
 );
 
-use Data::Dump qw/dump/;
-sub data {
+sub entries { $_[0]->feed->entries }
+
+sub as_data {
 	my ($self) = @_;
-	warn "data ",$self->uri," ",dump($self->feed->entries);
-	$self->feed->entries;
+	# data should return single element!
+	[ $self->feed->entries ];
 }
 
 1;