blob: 75f8481ba59b0d986faf1f24467ffb6047baa1ff (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
package Spreadsheet::Template::Generator::Parser::XLSX;
use Moose;
use Spreadsheet::XLSX;
use XML::Entities;
with 'Spreadsheet::Template::Generator::Parser::Excel';
sub make_excel {
my $self = shift;
my ($filename) = @_;
return Spreadsheet::XLSX->new($filename);
}
# XXX this stuff all feels like working around bugs in Spreadsheet::XLSX -
# maybe look into that at some point
sub _filter_cell_contents {
my $self = shift;
my ($contents, $type) = @_;
$contents = XML::Entities::decode('all', $contents);
if ($type eq 'number') {
$contents = 0+$contents;
}
return $contents;
}
__PACKAGE__->meta->make_immutable;
no Moose;
1;
|