File Coverage

blib/lib/Archive/Peek.pm

Criterion	Covered	Total	%
statement	21	22	95.4
branch	3	4	75.0
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	30	33	90.9

package Archive::Peek;
use Moo;
use Carp qw(confess);
use Archive::Peek::Tar;
use Archive::Peek::Zip;
use Types::Path::Tiny qw( File );
our $VERSION = '0.36';

has 'filename' => (
    is       => 'ro',
    isa      => File,
    required => 1,
    coerce   => 1,
);

sub BUILD {
    my $self     = shift;
    my $filename = $self->filename;
    my $basename = $filename->basename;
    if ( $basename =~ /\.zip$/i ) {
        bless $self, 'Archive::Peek::Zip';
    } elsif ( $basename =~ /(\.tar|\.tar\.gz|\.tgz|\.bz2|\.bzip2)$/i ) {
        bless $self, 'Archive::Peek::Tar';
    } else {
        confess("Failed to open $filename");
    }
}

1;

__END__