EPUB-Parser

 view release on metacpan or  search on metacpan

lib/EPUB/Parser/Util/Archive.pm  view on Meta::CPAN

use Carp;
use Smart::Args;
use Archive::Zip qw( AZ_OK );

sub new {
    args(
        my $class => 'ClassName',
        my $data => { isa => 'Archive::Zip' },
    );

    bless { data => $data } => $class;
}

sub get_member_data {
    args(
        my $self      => 'Object',
        my $file_path => 'Str',
    );

    my $member = $self->{data}->memberNamed($file_path);
    croak "$file_path not found" unless ($member);

 view all matches for this distribution
 view release on metacpan -  search on metacpan

( run in 0.733 second using v1.00-cache-2.02-grep-82fe00e-cpan-503542c4f10 )