Select Code to Download

package Simple::Class;

...

    \@data;
}

  <table id="load_data">
...
    </tr>

  </table>

use HTML::Seamstress;
...
print $seamstress->as_HTML;

use Inline::Java; # grin ;-)

...
      for (int i=0; i < shapes.length; i++)
           area += shapes[i].computeArea();

...
  </table>

use HTML::Seamstress;

...

print $seamstress->as_HTML;

...

     gi_tr       => 'iterate',

     gi_tr       => [qw(iterate1 iterate2)],

sub table {

...
  my @table_gi_tr = listify $table{gi_tr} ;

  ...

my @table_gi_tr = (ref $table{gi_tr} eq 'ARRAY') 
    ? (@$table{gi_tr})
    : ( $table{gi_tr})

# fold the scalar and aref into an array
...
      ...

   }

our ($table_data, $tr_data, $gi_td);
sub table {
...
}