gistfile1.perl

# sort of a mini-global
my $c;
my $tx = Text::Xslate->new(
  function => {
    text_field => sub { $link_to->($c, @_) },
    ...
  },
  ...,
);
# called as $render->($c, @other_render_args);
my $render = sub {
  $c = shift;
  $tx->render(@_);
};