diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-05-01 14:34:01 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-05-01 14:34:01 -0500 |
commit | f5533df5ea962f9638f2ff3664f74fa8d6ab12c0 (patch) | |
tree | 0ad9e713cc0196a883f58d8005c26328e7c1fca0 /lib/Spreadsheet/Template/Generator/Parser/Excel.pm | |
parent | 9cf7419380a812d1bbacb74018c111a7e77cb5ac (diff) | |
download | spreadsheet-template-f5533df5ea962f9638f2ff3664f74fa8d6ab12c0.tar.gz spreadsheet-template-f5533df5ea962f9638f2ff3664f74fa8d6ab12c0.zip |
get row heights and column widths
Diffstat (limited to 'lib/Spreadsheet/Template/Generator/Parser/Excel.pm')
-rw-r--r-- | lib/Spreadsheet/Template/Generator/Parser/Excel.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/Spreadsheet/Template/Generator/Parser/Excel.pm b/lib/Spreadsheet/Template/Generator/Parser/Excel.pm index 1aed4a8..76600bf 100644 --- a/lib/Spreadsheet/Template/Generator/Parser/Excel.pm +++ b/lib/Spreadsheet/Template/Generator/Parser/Excel.pm @@ -39,12 +39,17 @@ sub _parse_worksheet { my ($sheet) = @_; my $data = { - cells => [], + row_heights => [ $sheet->get_row_heights ], + column_widths => [ $sheet->get_col_widths ], + cells => [], }; my ($rmin, $rmax) = $sheet->row_range; my ($cmin, $cmax) = $sheet->col_range; + splice @{ $data->{row_heights} }, $rmax + 1; + splice @{ $data->{column_widths} }, $cmax + 1; + for my $row (0..$rmin - 1) { push @{ $data->{cells} }, []; } |