EPUB-Parser
view release on metacpan - search on metacpan
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 distributionview release on metacpan - search on metacpan
( run in 0.733 second using v1.00-cache-2.02-grep-82fe00e-cpan-503542c4f10 )