view release on metacpan or  search on metacpan

lib/App/DiffCPANReleases.pm  view on Meta::CPAN

    require File::Util::Tempdir;

    my $rel = shift;
    log_trace "Resolving %s ...", $rel;

    my $tempdir = File::Util::Tempdir::get_tempdir();

  USE_PATH:
    {
        if ($rel =~ m!/! || $rel =~ /\.tar(\.\w+)?\z/) {
            return [404, "No such release tarball file '$rel'"] unless -f $rel;
            return [200, "OK (file)", $rel];
        }
    }

    my ($dist, $ver);
    if ($rel =~ /\A(\w+(?:-\w+)*)\@([0-9][\w.-]*)\z/) {
        $dist = $1;
        $ver = $2;
    } elsif ($rel =~ /\A\w+(?:-\w+)*\z/) {
        $dist = $rel;