File Coverage

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

Criterion	Covered	Total	%
statement	24	24	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	3	4	75.0
total	36	37	97.3

package Archive::Any::Plugin::Tar;
$Archive::Any::Plugin::Tar::VERSION = '0.0945';
use strict;
use warnings;
use base 'Archive::Any::Plugin';

use Archive::Tar;
use Cwd;

sub can_handle {
    return (
        'application/x-tar',  'application/x-gtar',
        'application/x-gzip', 'application/x-bzip2',
    );
}

sub files {
    my ( $self, $file ) = @_;
    my $t = Archive::Tar->new( $file );
    return $t->list_files;
}

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

    my $t = Archive::Tar->new( $file );
    return $t->extract;
}

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

1;

# ABSTRACT: Archive::Any wrapper around Archive::Tar

__END__