From 7e6ee683379071b6cea2bda7dce8cb7828baa5b4 Mon Sep 17 00:00:00 2001
From: Jason <jason@socialflow.com>
Date: Tue, 27 Aug 2013 14:20:21 +0000
Subject: support for full autofilter functionality

---
 lib/Spreadsheet/Template/Writer/Excel.pm | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

(limited to 'lib')

diff --git a/lib/Spreadsheet/Template/Writer/Excel.pm b/lib/Spreadsheet/Template/Writer/Excel.pm
index 2e9c3e2..f77e898 100644
--- a/lib/Spreadsheet/Template/Writer/Excel.pm
+++ b/lib/Spreadsheet/Template/Writer/Excel.pm
@@ -1,6 +1,13 @@
 package Spreadsheet::Template::Writer::Excel;
+BEGIN {
+  $Spreadsheet::Template::Writer::Excel::AUTHORITY = 'cpan:DOY';
+}
+{
+  $Spreadsheet::Template::Writer::Excel::VERSION = '0.01';
+}
 use Moose::Role;
 
+use Data::Dumper;
 use Class::Load 'load_class';
 use List::Util 'first';
 
@@ -169,9 +176,8 @@ sub _write_worksheet {
         }
     }
     if (exists $data->{autofilter}) {
-        my $row = $data->{autofilter};
-        my $num_cols = scalar @{$data->{cells}[$data->{autofilter}]};
-        $sheet->autofilter($row, 0, $row, $num_cols-1);
+        my @autofilter = @{$data->{autofilter}};
+        $sheet->autofilter($autofilter[0], $autofilter[1], $autofilter[2], $autofilter[3]);
     }
 }
 
@@ -185,7 +191,7 @@ sub _write_cell {
     }
 
     my $format;
-    if (exists $data->{format}) {
+    if ($data->{format}) {
         my %border = (
             thin => 1,
         );
-- 
cgit v1.2.3-54-g00ecf