sub get_by_id {
my ($self, $feed_id) = @_;
my $feed = $self->single({id => $feed_id});
my $xml_feed = XML::Feed->parse(URI->new($feed->url));
$xml_feed->{'url'} = $feed->url;
use WWW::Translate::Apertium;
foreach ($xml_feed->entries) {
my $engine = WWW::Translate::Apertium->new(lang_pair => 'en-ca');
my $translated_string = $engine->translate($_->content->body);
#This change $_->content->body
$_->content($translated_string);
}
return $xml_feed;
}
####
[% FOREACH entry IN feed.entries %]
TRANSLATED:[% entry.content.body %]
[% END %]
####
[% FOREACH entry IN feed.entries %]
ORIGINAL:[% entry.content.body %]
TRANSLATED:[% entry.content.body_alt %]
[% END %]