view release on metacpan or  search on metacpan

lib/App/cpanminus/script/Patch/UseURIFromFoundMirror.pm  view on Meta::CPAN

use Module::Patch 0.12 qw();
use base qw(Module::Patch);

my $_search_module = sub {
    my($self, $module, $version) = @_;
    if ($self->{mirror_index}) {
        $self->mask_output( chat => "Searching $module on mirror index $self->{mirror_index} ...\n" );
        my $pkg = $self->search_mirror_index_file($self->{mirror_index}, $module, $version);
        return $pkg if $pkg;
        unless ($self->{cascade_search}) {
            $self->mask_output( diag_fail => "Finding $module ($version) on mirror index $self->{mirror_index} failed." );
            return;
        }
    }
    unless ($self->{mirror_only}) {
        my $found = $self->search_database($module, $version);
        return $found if $found;
    }
  MIRROR: for my $mirror (@{ $self->{mirrors} }) {
        $self->mask_output( chat => "Searching $module on mirror $mirror ...\n" );