view release on metacpan or  search on metacpan

script/cpan-outdated-coro  view on Meta::CPAN

            return $fullpath;
        }
    }
    return;
}

sub getstore {
    my ( $url, $fname ) = @_;
    my $ua = LWP::UserAgent->new( parse_head => 0, );
    $ua->env_proxy();
    my $request = HTTP::Request->new( GET => $url );
    my $response = $ua->request( $request, $fname );
    if ( my $died = $response->header('X-Died') ) {
        die "Cannot getstore $url to $fname: $died";
    }
    elsif ( $response->code == 200 ) {
        return 1;
    }
    else {
        die "Cannot getstore $url to $fname: " . $response->status_line;
    }