• Home

  • Custom Ecommerce
  • Application Development
  • Database Consulting
  • Cloud Hosting
  • Systems Integration
  • Legacy Business Systems
  • Security & Compliance
  • GIS

  • Expertise

  • About Us
  • Our Team
  • Clients
  • Blog
  • Careers

  • VisionPort

  • Contact
  • Our Blog

    Ongoing observations by End Point Dev people

    Custom helper subs in Dancer templates

    Jon Jensen

    By Jon Jensen
    March 30, 2013

    I recently was writing some code using the Dancer Perl web framework, and had a set of HTML links in the template:

    <a href="/">Home</a> |
    <a href="/contact">Contact</a> |

    Since it’s possible this app could be relocated to a different path, say, /something/deeper instead of merely /, I wanted to use Dancer’s handy uri_for() routine to get the full URL, which would include any path relocation. (This concept will be familiar to Interchange 5 users from its [area] and [page] tags.)

    The uri_for function isn’t available in templates. The easiest way to cope would be to just use it in my route sub where it works fine, and store the results in the template tokens as strings. But then for any new URL needed I would have to update the route sub and the template, and this feels like a quintessential template concern.

    I found this blog post explaining how to add custom functions to be used in templates, and it worked great. Now my template can look like this:

    <a href="<% uri_for('/') %>">Home</a> |
    <a href="<% uri_for('contact') %>">Contact</a> |

    And the URLs are output fully qualified:


    Which is not always what I’d want, but in this case is.

    The only final concern is that I am using Dancer version 1.3111 and I got this warning upon using the before_template setup mentioned in the blog:

    Dancer::before_template has been deprecated since version 1.3080. use hooks!
    But use hook 'before_template' => sub {} now instead.

    So I updated my code, and the final result looks like this:

    hook 'before_template' => sub {
        my $tokens = shift;
        $tokens->{uri_for} = \&uri_for;

    And that made both Dancer and me happy.

    dancer perl