I've updated your question with code that may get you closer.
> [% PERL %]
> use Spreadsheet::WriteExcel;
> my $workbook = Spreadsheet::WriteExcel->new("example.xls");
> my $sheet1 = $workbook->add_worksheet("example");
> $sheet1->write ('A1',"Testing address");
$stash->set('myvar', $sheet);
> [% END %]
>
[% PROCESS test foo=myvar %] [%# *** function Call ***%]
> [% BLOCK test %]
> [% PERL %]
my $sheet = $stash->get('foo');
> $sheet->write('A2',"Hello");
> [% END %]
> [% END %]
Paul
_______________________________________________
templates mailing list
[email protected]
http://lists.template-toolkit.org/mailman/listinfo/templates
