view release on metacpan or  search on metacpan

examples/lw4ToODS  view on Meta::CPAN

my $num_rows = ($lw4_header->{num_fixtures} + 4);

# Create the OSD spreadsheet, and populate it with values from the
# Lightwright file. 

my $ods_doc = odfDocument(file   => $ods_file,
			  create => 'spreadsheet',);

# Set table to desired size

$ods_doc->expandTable(0, $num_rows, 10);

my $sheet = 0;

# Create some basic header info.

$ods_doc->updateCell($sheet, 0, 0, $lw4_header->{show_name});
$ods_doc->updateCell($sheet, 1, 0, $lw4_header->{sub_head_1});
$ods_doc->updateCell($sheet, 0, 2, $lw4_header->{save_date});
$ods_doc->updateCell($sheet, 1, 2, $lw4_header->{save_time});