also handle default colors here (#4)

2 files changed, 3 insertions, 1 deletions

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};