File Coverage

blib/lib/Data/XLSX/Parser/DocumentArchive.pm

Criterion	Covered	Total	%
statement	9	24	37.5
branch	0	2	0.0
condition			n/a
subroutine	3	9	33.3
pod	0	6	0.0
total	12	41	29.2

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');
}

sub relationships {
    my ($self) = @_;
    $self->{_zip}->memberNamed('xl/_rels/workbook.xml.rels');
}

1;