<%args> $tx $inputs => 0 % my $ent = sub { % my ($head,$name,$val,$style,$size,$input_xinfo) = @_; <% $head %> % if ($inputs) { % $size ||= 50; <% $input_xinfo %> % } else { % if (defined $style) { <% "<$style>" %> % } <% $val |h %> % if (defined $style) { <% "" %> % } % } % }; % $ent->('Short name:', 'desc', $tx->{'desc'}); % $ent->('Subject:', 'subject', $tx->{'subject'}, 'code'); <% $m->content %>