[% 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.