<%
$t->{'rss'}{testcode} = sub {
my ($node, $t) = @_;
warn "Executing RSS code!\n";
$t->{'pre'} = q();
return 'channel/item[position() < 5]';
};
$t->{'item'}{testcode} = sub {
my ($node, $t) = @_;
if ($node->getParentNode->getName ne 'channel') {
return 1;
}
$t->{'pre'} = '
' .
findvalue('title/text()', $node) . ' - ' .
findvalue('description/text()', $node);
$t->{'post'} = "
\n\n";
return -1;
};
%>