loop_context_vars => 1
[download]

#!/usr/bin/perl --


use strict;
use warnings;

use HTML::Template::Compiled;

{

    my $htc = HTML::Template::Compiled->new(
        scalarref => \'<%each foo%>key <%= __key__ %>=<%= __value__ %>
<%/each%>',
        debug => 0,
        loop_context_vars => 1,
    );
    $htc->param(foo => { a => 1, b => 2, c => 3 });
    my $out = $htc->output;

    print $out,$/;

}

{

    my $htc = HTML::Template::Compiled->new(
        scalarref => \'<TMPL_EACH foo>key <TMPL_VAR __key__ >=<TMPL_VA
+R __value__>
</TMPL_EACH>',
        debug => 0,
        loop_context_vars => 1,
    );
    $htc->param(foo => { a => 1, b => 2, c => 3 });
    my $out = $htc->output;

    print $out,$/;
}
__END__
key c=3
key a=1
key b=2

key c=3
key a=1
key b=2
[download]

Here's the template with more traditional markup:

<TMPL_EACH res>
  <TMPL_VAR __key__ > =>  <TMPL_VAR __value__ >
</TMPL_EACH>
[download]

One feature missing is the ability to "sort by keys" when we use TMPL_EACH.

Is this possible?

ability to "sort by keys" when we use TMPL_EACH.

I've thought about that. I was actually thinking about to sort by default, so I would change it internally to a loop over keys(). One wouldn't use the unsorted output anyway in production, I guess. What about an attribute CMP which can have the values num or alpha?

edit: I just coded it, it's an easy change. <%each hash sort=num %>...
Now one would probably like to have the possibility to reverse the sort order and to sort by values. I'm open to any suggestions on this.

Hi there,

You could have something like:

<%each hash sort=num reverse=1 %>
[download]

Meaning that by default it wouldn't reverse.

The solution of having sort=num or alpha looks good to me.