diff options
| author | Jesse Luehrs <doy@tozt.net> | 2013-09-16 23:21:24 -0400 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-09-16 23:24:04 -0400 |
| commit | 184bd929cdd7059c5387c2e753ab63731020d537 (patch) | |
| tree | 1ce04ee4a25399100269cdd4350df39a299dd9e5 | |
| parent | a5b756bcaf85dd5c9ced36081427ddfd3de03d1b (diff) | |
| download | spreadsheet-parsexlsx-184bd929cdd7059c5387c2e753ab63731020d537.tar.gz spreadsheet-parsexlsx-184bd929cdd7059c5387c2e753ab63731020d537.zip | |
handle the 'e' format (fixes #7)
| -rw-r--r-- | lib/Spreadsheet/ParseXLSX.pm | 3 | ||||
| -rw-r--r-- | t/bug-7.t | 14 | ||||
| -rw-r--r-- | t/data/bug-7.xlsx | bin | 0 -> 8639 bytes |
3 files changed, 17 insertions, 0 deletions
diff --git a/lib/Spreadsheet/ParseXLSX.pm b/lib/Spreadsheet/ParseXLSX.pm index d79515f..a7db72b 100644 --- a/lib/Spreadsheet/ParseXLSX.pm +++ b/lib/Spreadsheet/ParseXLSX.pm @@ -164,6 +164,9 @@ sub _parse_sheet { $long_type = 'Text'; $val = $val ? "TRUE" : "FALSE"; } + elsif ($type eq 'e') { + $long_type = 'Text'; + } elsif ($type eq 'str') { $long_type = 'Text'; } diff --git a/t/bug-7.t b/t/bug-7.t new file mode 100644 index 0000000..a4b2646 --- /dev/null +++ b/t/bug-7.t @@ -0,0 +1,14 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; + +use Spreadsheet::ParseXLSX; + +my $wb = Spreadsheet::ParseXLSX->new->parse('t/data/bug-7.xlsx'); +is($wb->worksheet_count, 3); + +my $ws = $wb->worksheet(0); +is($ws->get_cell(0, 0)->value, "#N/A"); + +done_testing; diff --git a/t/data/bug-7.xlsx b/t/data/bug-7.xlsx Binary files differnew file mode 100644 index 0000000..c516813 --- /dev/null +++ b/t/data/bug-7.xlsx |