[Templates] Templates : Pass perl variables to BLOCKS

[Paul Seamons]

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