Help for this page

Select Code to Download


  1. or download this
    <!-- foo.tmpl -->

...
  </tmpl_loop>
</select>
...
  2. or download this
    ### foo.pl ###

my @menu;
push @menu, { item => $_, selected => $_ eq $state } for 1..6;
$t->param( menu => \@menu );
  3. or download this
    my @nums = (1..6);
my (@menu, %option, $selected);
...

# Send the menu to the template;
$t->param( menu => \@menu );