diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-05-01 12:13:34 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-05-01 12:13:34 -0500 |
commit | 9824fd56633cc3cf4b65aa5c1585805e6fc447f3 (patch) | |
tree | 4295e5077600adb6c7b30945ada3dea4ad477c9e /lib/Spreadsheet/Template/Generator/Parser/XLS.pm | |
parent | 6739d8c87dda4f543400305d5a06c128ab87492d (diff) | |
download | spreadsheet-template-9824fd56633cc3cf4b65aa5c1585805e6fc447f3.tar.gz spreadsheet-template-9824fd56633cc3cf4b65aa5c1585805e6fc447f3.zip |
support xls files too
Diffstat (limited to 'lib/Spreadsheet/Template/Generator/Parser/XLS.pm')
-rw-r--r-- | lib/Spreadsheet/Template/Generator/Parser/XLS.pm | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/lib/Spreadsheet/Template/Generator/Parser/XLS.pm b/lib/Spreadsheet/Template/Generator/Parser/XLS.pm new file mode 100644 index 0000000..a693120 --- /dev/null +++ b/lib/Spreadsheet/Template/Generator/Parser/XLS.pm @@ -0,0 +1,22 @@ +package Spreadsheet::Template::Generator::Parser::XLS; +use Moose; + +use Spreadsheet::ParseExcel; + +with 'Spreadsheet::Template::Generator::Parser::Excel'; + +sub make_excel { + my $self = shift; + my ($filename) = @_; + + my $parser = Spreadsheet::ParseExcel->new; + my $excel = $parser->parse($filename); + die $parser->error unless $excel; + + return $excel; +} + +__PACKAGE__->meta->make_immutable; +no Moose; + +1; |