support for full autofilter functionality

2 files changed, 12 insertions, 4 deletions

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,
         );
diff --git a/t/merge.t b/t/merge.t
index 0564deb..3a9f9e0 100644
--- a/t/merge.t
+++ b/t/merge.t
@@ -34,6 +34,8 @@ my $data = do { local $/; local @ARGV = ('t/data/merge.json'); <> };
     my $ws = $wb->worksheet(0);
     is($ws->get_name, 'Merge Report 1');
 
+    # In the template, the 4 columns are merged
+    # with contents = "Merged Cells"
     for my $col (0..3) {
         if ($col == 0) {
             is($ws->get_cell(0, $col)->value, 'Merged Cells');