Here is what I have tried:
use PDF::Report; use PDF::Report::Table; $main_rpt_path = "/home/ics/work/rpts/interimmtr_prebill.rpt"; $main_rpt_pdf = new PDF::Report('PageSize' => 'letter', 'PageOrientation' => 'Landscape',); $main_rpt_tbl_wrt = PDF::Report::Table->new($main_rpt_pdf); $main_rpt_tbl_wrt->addTable( build_table_writer_array($pt_column_headers_ref));
I see one error, but still get the same message. I missed the fact the width and color are parameters of addTable, so I corrected the call, and still got the same error.
$main_rpt_tbl_wrt->addTable( build_table_writer_array($pt_column_headers_ref), 10,10, 0xFFFFFF, 0xFFFFCC);
sub build_table_writer_array # $data -- an array ref of data # { my $data = shift @_; my $out_data_table = undef; $out_data_table = [[@$data],]; return $out_data_table; }
and here is the error I'm getting.
I'd appreciate an example or help. Thanks.Use of uninitialized value in subtraction (-) at /usr/local/share/ +perl5/PDF/Report/Table.pm line 88. at /usr/local/share/perl5/PDF/Report/Table.pm line 88
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |