2 % foreach my $row ( @$sorted ) {
4 % foreach my $col ( @$columns ) {
5 % next unless defined $row->{$col};
6 % my $v = ref $row->{$col} eq 'ARRAY' ? join(', ',@{ $row->{$col} }) : $row->{$col};
7 % next if $v =~ m/^\s*$/;
8 <li><tt><%= $col %></tt> <%= $v %>