view release on metacpan or  search on metacpan

t/lib/lib/archive.pm  view on Meta::CPAN

=cut

my $cpan   = $ENV{CPAN_MIRROR} || 'https://www.cpan.org';
my $is_url = qr!^(?:CPAN|https?)://!;
my $tar    = Archive::Tar->new();

sub import {
    my $class = shift;
    my %cache;

    ( my $acdir = dirname( rel2abs( (caller)[1] ) ) ) =~ s!\\!/!g;

    for my $entry (@_) {
        my $is_url = $entry =~ /$is_url/;
        my $arcs = $is_url ? _get_url($entry) : _get_files( $entry, $acdir );
        for my $arc (@$arcs) {
            my $path = $is_url ? $entry : $arc->[0];
            my %tmp;
            my $mod = 0;
            my $lib = 0;
            for my $f ( $tar->read( $arc->[0] ) ) {