[% 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.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|