From 61549b9bceb545be8f91338a11cd287205e3153d Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 8 May 2013 18:46:00 -0500
Subject: support border styles

---
 lib/Spreadsheet/Template/Generator/Parser/Excel.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'lib/Spreadsheet/Template/Generator/Parser/Excel.pm')

diff --git a/lib/Spreadsheet/Template/Generator/Parser/Excel.pm b/lib/Spreadsheet/Template/Generator/Parser/Excel.pm
index e9082ff..822b35b 100644
--- a/lib/Spreadsheet/Template/Generator/Parser/Excel.pm
+++ b/lib/Spreadsheet/Template/Generator/Parser/Excel.pm
@@ -1,6 +1,8 @@
 package Spreadsheet::Template::Generator::Parser::Excel;
 use Moose::Role;
 
+use List::MoreUtils 'any';
+
 with 'Spreadsheet::Template::Generator::Parser';
 
 requires '_build_excel';
@@ -114,6 +116,11 @@ sub _parse_cell {
             3 => 'vjustify',
         );
 
+        my %border = (
+            0 => 'none',
+            5 => 'thin',
+        );
+
         if (!$format->{IgnoreFont}) {
             $format_data->{size} = $format->{Font}{Height};
             $format_data->{color} = $format->{Font}{Color}
@@ -125,6 +132,11 @@ sub _parse_cell {
         }
         if (!$format->{IgnoreBorder}) {
             $format_data->{border_color} = $format->{BdrColor};
+            if (any { $_ != 0 } @{ $format->{BdrStyle} }) { # XXX
+                $format_data->{border} = [
+                    map { $border{$_} } @{ $format->{BdrStyle} }
+                ];
+            }
         }
         if (!$format->{IgnoreAlignment}) {
             $format_data->{align} = $halign{$format->{AlignH}}
-- 
cgit v1.2.3-54-g00ecf