package Feed::Role::LinkedPage;
use Moose::Role;
use 5.012;
use namespace::autoclean;
use XML::Feed::Content;
around extract_entries => sub {
my ($orig, $self) = @_;
$self->log->trace('around extract_entries - begin');
my $entries= $self->$orig();
splice @$entries, 2;
for my $entry (@{ $entries }) {
$self->log->trace('around extract_entries - fetching ' . $entry->link);
my $res= $self->user_agent->get( $entry->link );
if( $res->is_success and $res->decoded_content ) {
my $c= XML::Feed::Content->wrap({
type => $res->header( 'Content-Type' ),
body => $res->decoded_content,
base => $entry->link,
});
$entry->content( $c );
};
};
$self->log->trace('around extract_entries - end');
$entries
};
1;