From a0f0caba41c68987a851e8a4ecbb5b1ca94fa3d3 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 4 Jul 2014 17:53:58 -0400
Subject: also handle default colors here (#4)

---
 lib/Spreadsheet/Template/Writer/Excel.pm | 2 ++
 t/basic.t                                | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/Spreadsheet/Template/Writer/Excel.pm b/lib/Spreadsheet/Template/Writer/Excel.pm
index 59c4553..c88bfa2 100644
--- a/lib/Spreadsheet/Template/Writer/Excel.pm
+++ b/lib/Spreadsheet/Template/Writer/Excel.pm
@@ -286,6 +286,8 @@ sub _color {
     my $self = shift;
     my ($color) = @_;
 
+    return 64 if !defined($color);
+
     if (exists $self->_colors->{$color}) {
         return $self->_colors->{$color};
     }
diff --git a/t/basic.t b/t/basic.t
index d85ff06..d9ddfac 100644
--- a/t/basic.t
+++ b/t/basic.t
@@ -100,7 +100,7 @@ my $data;
         ok($format->{Wrap});
         is_deeply($format->{Fill}, [0, undef, undef]);
         is_deeply($format->{BdrStyle}, [(1) x 4]);
-        is_deeply($format->{BdrColor}, [('#000000') x 4]);
+        is_deeply($format->{BdrColor}, [(undef) x 4]);
         is_deeply($format->{BdrDiag}, [0, 0, undef]);
 
         my $font = $format->{Font};
-- 
cgit v1.2.3-54-g00ecf