Lines Matching refs:dist

519 my %dist;               # name -> metacpan data
614     unless ($dist{$name} && !$top) {
620         $dist{$name} = $result;
685 say scalar keys %dist, q{ packages fetched.} unless $quiet;
719 while (my ($distname, $dist) = each %dist) {
733         $dist->{abstract} =~ s|\s+$||;
734         $dist->{abstract} .= q{.} unless $dist->{abstract} =~ m|\.$|;
735         my $abstract = wrap( q{}, qq{\t  }, $dist->{abstract} );
736 …     my $homepage = $dist->{resources}->{homepage} || qq{https://metacpan.org/release/${distname}};
756         my $version = $dist->{version};
757         my ($path) = $dist->{download_url} =~ m|^[^:/?#]+://[^/?#]*([^?#]*)|;
770         my $license = brlicense( ref $dist->{license} eq 'ARRAY'
771                                ? join q{ or }, @{$dist->{license}}
772                                : $dist->{license} );
800         my ($checksum, $filename) = get_checksum($dist->{download_url});