perltemplate-toolkit

Calling outside subs and modules in Template Toolkit without Plugins?


I am trying to call an outside Perl module in a Template Toolkit .tt file. The module I want to use is Util, and I want to call Util::prettify_date. I was able to include this module using Template Toolkit's plugin interface: I set up the load, new, and error function (as described here: http://template-toolkit.org/docs/modules/Template/Plugin.html), and include it using [% USE Util %].

This works fine, but I was wondering if there's a way to USE Perl modules in Template Toolkit without having to plugin-ify them. The main issue with making plugins is that I have to make all the functions in Util object-oriented (ie. accepts $self as first argument), which doesn't really make sense.


Solution

  • Have you tried useing the module in a [% PERL %] block?

    Now, I personally would write a plugin which relays, say, a MyOrg::Plugin::Util->prettify_date to Util::prettify_date after getting rid of the first argument. You can automate the creation of these methods as well:

    my @to_proxy = qw( prettify_date );
    
    sub new {
        my $class = shift;
    
        {
            no strict 'refs';
            for my $sub ( @to_proxy) {
                *{"${class}::${sub}"} = sub {
                    my $self = shift;
                    return "My::Util::$sub"->( @_ );
                }
            }
        }
        bless {} => $class;
    }