<%  
    use XML::XPathScript;
	$t->{turkey}{pre} =  'llama';
	$t->{chicken}{showtag} = 1;
	$t->{chicken}{testcode} = sub { return -1 };
	$t->{'text()'}{testcode} = sub { $_[1]->{pre} = uc $_[0]->string_value; -1  };
%><%= apply_templates( '//chicken' ) %>