view release on metacpan or  search on metacpan

devdata/https_mojolicious.io_blog_2018_12_03_higher-order-promises_  view on Meta::CPAN

use warnings;
use feature qw(signatures);
no warnings qw(experimental::signatures);

use File::Spec::Functions;
use Mojo::Promise;
use Mojo::Promise::Role::HigherOrder;
use Mojo::UserAgent;
use Mojo::URL;

use lib catfile( $ENV{HOME}, '.cpan' );
my @mirrors = eval {
  no warnings qw(once);
  my $file = Mojo::URL->new( 'index.html' );
  require CPAN::MyConfig;
  map { say "1: $_"; $file->clone->base(Mojo::URL->new($_))->to_abs }
    $CPAN::Config->{urllist}->@*
  };

die "Did not find CPAN::MyConfig\n" unless @mirrors;
my $ua = Mojo::UserAgent->new;

devdata/https_mojolicious.io_blog_2018_12_03_higher-order-promises_  view on Meta::CPAN

use warnings;
use feature qw(signatures);
no warnings qw(experimental::signatures);

use File::Spec::Functions;
use Mojo::Promise;
use Mojo::Promise::Role::HigherOrder;
use Mojo::UserAgent;
use Mojo::URL;

use lib catfile( $ENV{HOME}, '.cpan' );
my @mirrors = eval {
  no warnings qw(once);
  my $file = Mojo::URL->new( 'index.html' );
  require CPAN::MyConfig;
  map { say "1: $_"; $file->clone->base(Mojo::URL->new($_))->to_abs }
    $CPAN::Config->{urllist}->@*
  };

die "Did not find CPAN::MyConfig\n" unless @mirrors;
my $ua = Mojo::UserAgent->new;