diff options
-rw-r--r-- | lib/Spreadsheet/ParseXLSX.pm | 24 |
1 files changed, 23 insertions, 1 deletions
diff --git a/lib/Spreadsheet/ParseXLSX.pm b/lib/Spreadsheet/ParseXLSX.pm index 33b0d06..c140811 100644 --- a/lib/Spreadsheet/ParseXLSX.pm +++ b/lib/Spreadsheet/ParseXLSX.pm @@ -236,9 +236,31 @@ sub _parse_styles { thin => 1, ); + my %fill = ( + darkDown => 7, + darkGray => 3, + darkGrid => 9, + darkHorizontal => 5, + darkTrellis => 10, + darkUp => 8, + darkVertical => 6, + gray0625 => 18, + gray125 => 17, + lightDown => 13, + lightGray => 4, + lightGrid => 15, + lightHorizontal => 11, + lightTrellis => 16, + lightUp => 14, + lightVertical => 12, + mediumGray => 2, + none => 0, + solid => 1, + ); + my @fills = map { [ - 0, # XXX + $fill{$_->att('patternType')}, $self->_color($workbook->{Color}, $_->first_child('fgColor')), $self->_color($workbook->{Color}, $_->first_child('bgColor')), ] |