Select Code to Download

sub table_data {
    my $self = shift;
...
    }
    $self->{tmpl_obj}->param(table_data_loop => \@outer_loop);
}

  <fo:table-body>
  <TMPL_LOOP NAME=table_data_loop>
...
  <TMPL_VAR NAME=table_data_close_loop>
  </TMPL_LOOP>
  </fo:table-body>