diff options
author | Fitz Elliott <felliott@fiskur.org> | 2014-07-05 12:13:01 -0400 |
---|---|---|
committer | Fitz Elliott <felliott@fiskur.org> | 2014-07-05 12:13:01 -0400 |
commit | 61ed182ace7b7ac06a00b0bb9d572cc464b43493 (patch) | |
tree | e9b2d8c41e562e374586b7edf300f21a125ff4a1 | |
parent | a723723da2f4f7155f2f01f42c2502cb65f71b4b (diff) | |
download | spreadsheet-parsexlsx-61ed182ace7b7ac06a00b0bb9d572cc464b43493.tar.gz spreadsheet-parsexlsx-61ed182ace7b7ac06a00b0bb9d572cc464b43493.zip |
add TabColor support to ParseXLSX
-rw-r--r-- | lib/Spreadsheet/ParseXLSX.pm | 8 | ||||
-rw-r--r-- | t/data/tab-color.xlsx | bin | 0 -> 27087 bytes | |||
-rw-r--r-- | t/tab-color.t | 15 |
3 files changed, 23 insertions, 0 deletions
diff --git a/lib/Spreadsheet/ParseXLSX.pm b/lib/Spreadsheet/ParseXLSX.pm index 72c8793..2aecac3 100644 --- a/lib/Spreadsheet/ParseXLSX.pm +++ b/lib/Spreadsheet/ParseXLSX.pm @@ -226,6 +226,14 @@ sub _parse_sheet { $twig->purge; }, + 'sheetPr/tabColor' => sub { + my ( $twig, $tab_color ) = @_; + + $sheet->{TabColor} = $self->_color($sheet->{_Book}{Color}, $tab_color); + + $twig->purge; + }, + } ); diff --git a/t/data/tab-color.xlsx b/t/data/tab-color.xlsx Binary files differnew file mode 100644 index 0000000..7061e84 --- /dev/null +++ b/t/data/tab-color.xlsx diff --git a/t/tab-color.t b/t/tab-color.t new file mode 100644 index 0000000..ef1ab49 --- /dev/null +++ b/t/tab-color.t @@ -0,0 +1,15 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; + +use Spreadsheet::ParseXLSX; + +my $wb = Spreadsheet::ParseXLSX->new->parse('t/data/tab-color.xlsx'); +my $ws1 = $wb->worksheet(0); +is($ws1->get_tab_color, '#FF0000'); + +my $ws2 = $wb->worksheet(1); +is($ws2->get_tab_color, undef); + +done_testing; |