http://qs1969.pair.com?node_id=556079


in reply to Module::Compile::TT

[% FOREACH name IN [ 'foo', 'bar', 'baz' ] %] sub [% name %] { my $self = shift; $self->{[% name %]} = shift if @_; return $self->{[% name %]}; } [% END %]
well, to be honest, I don't find that more readable than creating the subs with writing them directly into the symbol table. I find it less readable.

I see no comments in your original code. With some short comment an average perl programmer should be able to understand what the code is doing and how to maintain it.
If somebody doesn't understand it, I guess they wouldn't understand the TT-example, either (they'd have to understand how a source filter works). I think it's better to teach them what an anonymous sub is than how to use inline-TT-code.
And, additionally, not everybody knows or likes TT syntax.