File Coverage

blib/lib/Enbld/Archivefile.pm

Criterion	Covered	Total	%
statement	27	30	90.0
branch	4	8	50.0
condition			n/a
subroutine	6	7	85.7
pod	0	2	0.0
total	37	47	78.7

package Enbld::Archivefile;

use strict;
use warnings;

use Archive::Tar;
use File::Spec;

sub new {
    my ( $class, $path ) = @_;

    my $self = {
        archivefile =>  $path,
    };

    return bless $self, $class;
}

require Enbld::Error;

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

    my ( undef, undef, $file ) = File::Spec->splitpath( $self->{archivefile} );

    require Enbld::Message;
    Enbld::Message->notify( "--> Extract archive file '$file'." );

    my $tar = Archive::Tar->new;
    $tar->read( $self->{archivefile} ) or
        _err( "Can't read archive file.", $tar->error );

    my @list = $tar->list_files or _err( "Can't list up file.", $tar->error );

    my @frag = split( '/', $list[0] );

    my $path = File::Spec->catdir( $dir, $frag[0] );
    $tar->setcwd( $dir ) or _err( "Can't move to cwd dir.", $tar->error );
    $tar->extract or _err( "Can't extract archive file.", $tar->error );

    return $path;
}

sub _err {
    my ( $err, $msg ) = @_;

    require Enbld::Error;
    die( Enbld::Error->new( $err, $msg ) );
}

1;