view release on metacpan or  search on metacpan

script/git-perl  view on Meta::CPAN

}

sub clone {
  my $module = shift;
  return if ( not $module );

  my $url;
  if ( $module =~ /::/ ) {
    $url = "https://metacpan.org/pod/$module";
  } else {
    logger("Getting https://metacpan.org endpoint for '$module'...");

    # First, try to find it within recent distributions (the point of this script)

    my $test = httpget("https://metacpan.org/recent");
    my $urlpart = "";
    my @records = split("<tr", $test);
    foreach my $record (@records) {
      if ( $record =~ /a href="([^"]*)".*${module}/s ) {
        $urlpart = $1;
        last;