Tidy for Template Toolkit Files

[roho]

I have been searching for the equivalent of perltidy, HTML::Tidy, etc. for Template Toolkit files.

I have inherited some rather challenging tt files to maintain, and they are sorely in need of reformatting. There are many nested control statements (see examples below) that are not indented, which makes deciphering the logic flow next to impossible.

[% IF %] [% ELSE %] [% END %] [% WHILE %] [% FOREACH %] etc.

Does anyone know of a utility to reformat tt files? I tried Template::Plugin::PerlTidy, but unfortunately its reformatting is no better (in many ways worse) than the original tt file.

[CountZero]

Template Toolkit files are of course an ungainly --but performant-- marriage between HTML-code and TT-code and it is my experience that most of the time any pretty-formatting of the HTML-code makes the TT-code unreadable and vice-versa.

Of course, TT-files are not limited to HTML (I use them a lot to write LaTeX documents) but any mixture of different languages will always be awkward.

Oh, and Template::Plugin::PerlTidy is not made for pretty-printing TT-files. Rather it will pretty-print Perl-code in web-pages.

[toolic]

A Super Search where title contains all of "templat", "tidy" (?node_id=3989;HIT=templat%20tidy;re=N) turned up this potentially useful node:

Template::Plugin::PerlTidy

[roho]

Thanks, but I've already tried that and it does not do what I want.

[sundialsvc4]

I am not aware of a “pretty-printer” utility for TT files, but it would certainly be a nice thing to have.

[Khen1950fx]

Would this help?

#!/usr/bin/perl

use strict;
use warnings;
use Template;

my $template = Template->new();
my ($a, $b, $c, $d, $e) =
    qw( IF ELSE END WHILE ECHO);
    
my $params = {
    'a' => $a,
    'b' => $b,
    'c' => $c,
    'd' => $d,
    'e' => $e,
};
print $template->process(\*DATA, $params);

__DATA__
[% USE format('%s') %] 
[% FOREACH item = [ a b c d e] %] 
[% format(item) +%] 
[% END %]

[Anonymous Monk]

There is no such thing, but if you wanted to write one, you would subclass Template::Parser/Template::Directive