File Coverage

blib/lib/File/Tempdir/ForPackage/FromArchive.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	22	100.0

use strict;
use warnings;

package File::Tempdir::ForPackage::FromArchive;
BEGIN {
  $File::Tempdir::ForPackage::FromArchive::AUTHORITY = 'cpan:KENTNL';
}
{
  $File::Tempdir::ForPackage::FromArchive::VERSION = '0.1.0';
}

# ABSTRACT: Inflate any archive to a temporary directory and work in it.


use Moo;
use Sub::Quote qw( quote_sub );
extends 'File::Tempdir::ForPackage';

has archive => (
  is       => ro =>,
  required => 1,
  isa      => (
    ## no critic (RequireInterpolationOfMetachars)
    quote_sub q| if ( not -r -e $_[0] ){ | . q| die "archive is not readable: $_[0]"; | . q| }|
  ),
);

around _build__dir => sub {
  my ( $orig, $self, @rest ) = @_;
  require Archive::Any;
  my $dir = $orig->( $self, @rest );
  my $archive = Archive::Any->new( $self->archive );
  $archive->extract($dir);
  return $dir;
};

no Moo;

1;

__END__