File Coverage

blib/lib/Archive/Any/Plugin/Zip.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	3	4	75.0
total	33	34	97.0

package Archive::Any::Plugin::Zip;
$Archive::Any::Plugin::Zip::VERSION = '0.0945';
use strict;
use warnings;
use base qw(Archive::Any::Plugin);

use Archive::Zip qw(:ERROR_CODES);

sub can_handle {
    return ( 'application/x-zip', 'application/x-jar', 'application/zip', );
}

sub files {
    my ( $self, $file ) = @_;

    my $z = Archive::Zip->new( $file );
    return $z->memberNames;
}

sub extract {
    my ( $self, $file ) = @_;

    my $z = Archive::Zip->new( $file );
    $z->extractTree;

    return 1;
}

sub type {
    my $self = shift;
    return 'zip';
}

1;

# ABSTRACT: Archive::Any wrapper around Archive::Zip

__END__