summaryrefslogtreecommitdiffstats
path: root/lib/Spreadsheet/Template/Writer/Excel.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Spreadsheet/Template/Writer/Excel.pm')
-rw-r--r--lib/Spreadsheet/Template/Writer/Excel.pm14
1 files changed, 10 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,
);