--- trunk/lib/Frey/Feed.pm 2008/11/05 12:31:12 303 +++ trunk/lib/Frey/Feed.pm 2008/11/05 12:32:36 304 @@ -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 ); }, ); @@ -49,7 +43,7 @@ sub data { my ($self) = @_; # data should return single element! - [ $self->entries ]; + [ $self->feed->entries ]; } 1;