initial commit

.gitignore

@@ -0,0 +1,6 @@
+Makefile
+README
+blib/
+inc/
+test.pl
+private-*

.shipit

@@ -0,0 +1,4 @@
+steps = FindVersion, ChangeVersion, CheckChangeLog, DistTest, Commit, Tag, MakeDist, UploadCPAN
+
+git.tagpattern = %v
+git.push_to    = origin

.travis.yml

@@ -0,0 +1,3 @@
+language: "perl"
+before_install:
+    - perl Makefile.PL | cpanm

MANIFEST.SKIP

@@ -0,0 +1,19 @@
+\bRCS\b
+\bCVS\b
+^MANIFEST\.
+^Makefile$
+~$
+\.old$
+^blib/
+^pm_to_blib
+^MakeMaker-\d
+\.gz$
+\.cvsignore
+^9\d_.*\.t
+^\.git/
+^\.shipit$
+\.gitignore$
+/\.git/
+^\.gitmodules$
+^\.travis.yml$
+^README\.md$

Makefile.PL

@@ -0,0 +1,38 @@
+use strict;
+use warnings;
+
+BEGIN {
+    my @devmods = qw(
+        Module::Install::AuthorTests
+        Module::Install::ReadmeFromPod
+        Module::Install::Repository
+    );
+    my @not_available;
+
+    eval qq{use inc::Module::Install; 1;} or push @not_available, 'inc::Module::Install';
+    for my $mod (@devmods) {
+        eval qq{require $mod} or push @not_available, $mod;
+    }
+    if (@not_available) {
+        print qq{# The following modules are not available.\n};
+        print qq{# `$^X $0 | cpanm` will install them:\n};
+        print $_, "\n" for @not_available;
+        print "\n";
+        exit -1;
+    }
+}
+
+use inc::Module::Install;
+
+name 'Data-XLSX-Parser';
+all_from 'lib/Data/XLSX/Parser.pm';
+
+readme_from 'lib/Data/XLSX/Parser.pm';
+author_tests 'xt';
+auto_set_repository;
+
+requires 'Archive::Zip';
+requires 'XML::Parser::Expat';
+requires 'File::Temp';
+
+WriteAll;

lib/Data/XLSX/Parser.pm

@@ -0,0 +1,61 @@
+package Data::XLSX::Parser;
+use strict;
+use warnings;
+
+use Data::XLSX::Parser::DocumentArchive;
+use Data::XLSX::Parser::Workbook;
+use Data::XLSX::Parser::SharedStrings;
+use Data::XLSX::Parser::Styles;
+use Data::XLSX::Parser::Sheet;
+
+sub new {
+    my ($class) = @_;
+
+    bless {
+        _row_event_handler => [],
+        _archive           => undef,
+        _workbook          => undef,
+        _shared_strings    => undef,
+    }, $class;
+}
+
+sub add_row_event_handler {
+    my ($self, $handler) = @_;
+    push @{ $self->{_row_event_handler} }, $handler;    
+}
+
+sub open {
+    my ($self, $file) = @_;
+    $self->{_archive} = Data::XLSX::Parser::DocumentArchive->new($file);
+}
+
+sub workbook {
+    my ($self) = @_;
+    $self->{_workbook} ||= Data::XLSX::Parser::Workbook->new($self->{_archive});
+}
+
+sub shared_strings {
+    my ($self) = @_;
+    $self->{_shared_strings} ||= Data::XLSX::Parser::SharedStrings->new($self->{_archive});
+}
+
+sub styles {
+    my ($self) = @_;
+    $self->{_styles} ||= Data::XLSX::Parser::Styles->new($self->{_archive});
+}
+
+sub sheet {
+    my ($self, $sheet_id) = @_;
+    $self->{_sheet} ||= Data::XLSX::Parser::Sheet->new($self, $self->{_archive}, $sheet_id);
+}
+
+sub _row_event {
+    my ($self, $row) = @_;
+
+    my $row_vals = [map { $_->{v} } @$row];
+    for my $handler (@{ $self->{_row_event_handler} }) {
+        $handler->($row_vals);
+    }
+}
+
+1;

lib/Data/XLSX/Parser/DocumentArchive.pm

@@ -0,0 +1,40 @@
+package Data::XLSX::Parser::DocumentArchive;
+use strict;
+use warnings;
+
+use Archive::Zip;
+
+sub new {
+    my ($class, $filename) = @_;
+
+    my $zip = Archive::Zip->new;
+    if ($zip->read($filename) != Archive::Zip::AZ_OK) {
+        die "Cannot open file: $filename";
+    }
+
+    bless {
+        _zip => $zip,
+    }, $class;
+}
+
+sub workbook {
+    my ($self) = @_;
+    $self->{_zip}->memberNamed('xl/workbook.xml');
+}
+
+sub sheet {
+    my ($self, $id) = @_;
+    $self->{_zip}->memberNamed(sprintf 'xl/worksheets/sheet%s.xml', $id);
+}
+
+sub shared_strings {
+    my ($self) = @_;
+    $self->{_zip}->memberNamed('xl/sharedStrings.xml');
+}
+
+sub styles {
+    my ($self) = @_;
+    $self->{_zip}->memberNamed('xl/styles.xml');
+}
+
+1;

lib/Data/XLSX/Parser/SharedStrings.pm

@@ -0,0 +1,66 @@
+package Data::XLSX::Parser::SharedStrings;
+use strict;
+use warnings;
+
+use XML::Parser::Expat;
+use Archive::Zip ();
+use File::Temp;
+
+sub new {
+    my ($class, $archive) = @_;
+
+    my $self = bless {
+        _data      => [],
+
+        _is_string => 0,
+        _buf       => '',
+    }, $class;
+
+    my $fh = File::Temp->new( SUFFIX => '.xml' );
+
+    my $handle = $archive->shared_strings or return $self;
+    die 'Failed to write temporally file: ', $fh->filename
+        unless $handle->extractToFileNamed($fh->filename) == Archive::Zip::AZ_OK;
+
+    my $parser = XML::Parser::Expat->new;
+    $parser->setHandlers(
+        Start => sub { $self->_start(@_) },
+        End   => sub { $self->_end(@_) },
+        Char  => sub { $self->_char(@_) },
+    );
+    $parser->parse($fh);
+
+    $self;
+}
+
+sub count {
+    my ($self) = @_;
+    scalar @{ $self->{_data} };
+}
+
+sub get {
+    my ($self, $index) = @_;
+    $self->{_data}->[$index];
+}
+
+sub _start {
+    my ($self, $parser, $name, %attrs) = @_;
+    $self->{_is_string} = 1 if $name eq 'si';
+}
+
+sub _end {
+    my ($self, $parser, $name) = @_;
+    $self->{_is_string} = 0;
+
+    if ($name eq 'si') {
+        push @{ $self->{_data} }, $self->{_buf};
+        $self->{_buf} = '';
+    }
+}
+
+sub _char {
+    my ($self, $parser, $data) = @_;
+    $self->{_buf} .= $data if $self->{_is_string};
+}
+
+1;