File Coverage

blib/lib/Archive/SimpleExtractor/Zip.pm

Criterion	Covered	Total	%
statement	21	49	42.8
branch	0	10	0.0
condition	0	2	0.0
subroutine	7	9	77.7
pod	0	1	0.0
total	28	71	39.4

package Archive::SimpleExtractor::Zip;

use warnings;
use strict;
use Archive::Zip qw/ :ERROR_CODES :CONSTANTS /;
use File::Find;
use File::Copy;
use File::Path qw/rmtree/;
use Cwd 'abs_path';

=head1 NAME

=head1 VERSION

Version 0.04

=cut

our $VERSION = '0.03';

=head1 SYNOPSIS

=cut

=head1 METHODS

=head2 new

=cut

sub extract {
    my $self = shift;
    my %arguments = @_;
    my $zip = Archive::Zip->new();
    $arguments{dir} = abs_path($arguments{dir}).'/';
    copy($arguments{archive}, $arguments{dir});
    my ($zipfile) = $arguments{archive} =~ /([^\/]+)$/;
    $arguments{archive} = $arguments{dir}.$zipfile;
    unless ( $zip->read($arguments{archive}) == AZ_OK ) { return (0, 'Can not read archive file'.$arguments{archive}) }
    if ($arguments{tree}) {
        unless ( $zip->extractTree( '' , $arguments{dir} ) == AZ_OK ) {
            unlink $arguments{archive};
            return (0, 'Can not extract archive' )
        }
        unlink $arguments{archive};
        return (1, 'Extract finished with directory tree');
    } else {
        my $tmp_dir = '.tmp'.rand(10000).'/';
            mkdir $arguments{dir}.$tmp_dir || return (0, 'Can not create temp_directory '.$! );
            $tmp_dir = $arguments{dir}.$tmp_dir;
        unless ( $zip->extractTree( '' , $tmp_dir ) == AZ_OK ) {
            unlink $arguments{archive};
            return (0, 'Can not extract archive' );
        }
        find(   { wanted => sub {
                                    if (-f $File::Find::name) {
                                        my ($filename) = $File::Find::name =~ /\/([^\/]+)$/;
                                        copy($File::Find::name, $arguments{dir}.$filename);
                                    }
                                },
                                no_chdir => 1,
                },
                $tmp_dir,
            );
        rmtree($tmp_dir);
        unlink $arguments{archive};
        return (1, 'Extract finished without directory tree');
    }
}

1;