{#PERL#}
$stash->get('show_elements');
{#END#}
[download]

Or just call &show_elements in some other way from within the PERL block.

I tried a couple of different things with Template::Stash to get the output of the subroutine, but all seem to result in STDOUT from the subroutine to print at the top of the page.

Here's my modified code:

    my $tmpl_stash = Template::Stash->new( {
    'show_subcat' => \&show_subcat( $lpmkey ),
    } );

    my $tmpl_data = {
    "${lpmkey}select" => ' selected',
#    'show_subcat'     => show_subcat( $lpmkey ),
    'lpmcat'          => $lpmkey,
    'lpmcategory'     => { 'l' => 'Logos',
                   'p' => 'Photos',
                   'm' => 'More',
               }->{ $lpmkey },
    };
[download]

And then I have a <code>{#PERL#} block like you suggested in your post. I also just tried running the subroutine from the block directly, avoiding using Template::Stash, but I'm still running into the same problem.

Any help would be appreciated.

elbieelbieelbie

Drat! That should have worked.

Well, actually, in the first case you don't need to put that specially in the Stash. You should be able to pass it in with the other data when you call process().

It really should work when you call it directly from within a PERL block though. Are you doing anything with STDOUT in your sub?

At this point, you might want to post to the TT mailing list and ask why the PERL block isn't working. I'm pretty sure it's supposed to work for exactly this case. You can find the mailing list at http://template-toolkit.org/.