gistfile1.pl

package Template::Toolkit::Plugin::SubTemplate;

use base 'Template::Toolkit::Plugin';

sub new {
    my $config = ref($_[-1]) eq 'HASH' ? pop(@_) : { };
    my ($class, $context) = @_;
    my $self = bless {
        _context => $context,
        _session => $context->stash->{_session}
    }, $class;
    return $self;
}
sub load {               # called as MyPlugin->load($context)
    my ($class, $context) = @_;
    return $class;       # returns 'MyPlugin'
}

sub process {
    my $self = shift;
    my $url = shift;
    my $template = WebGUI::Asset->newByUrl( $self->{_session}, $url );
    return $template->process( $self->{_context}->stash );
}

1;