File Coverage

blib/lib/Module/CheckVersion/AuthorityScheme/darkpan.pm

Criterion	Covered	Total	%
statement	20	32	62.5
branch	0	4	0.0
condition			n/a
subroutine	7	8	87.5
pod	0	1	0.0
total	27	45	60.0

package Module::CheckVersion::AuthorityScheme::darkpan;

use 5.010001;
use strict;
use warnings;

use File::Temp 'tempfile';
use File::Slurper 'write_binary';
use HTTP::Tiny;
use JSON::MaybeXS;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2026-04-08'; # DATE
our $DIST = 'Module-CheckVersion'; # DIST
our $VERSION = '0.091'; # VERSION

sub check_latest_version {
    my ($mod, $authority_scheme, $authority_content) = @_;

    my $url = "$authority_content/modules/02packages.details.txt.gz";
    my $res = HTTP::Tiny->new->get($url);
    #use DD; dd $res;
    return [$res->{status}, "Retrieving $url failed: $res->{reason}"] unless $res->{success};

    my ($tempfh, $tempfilename) = tempfile('XXXXXXXX', SUFFIX => '.gz', TMPDIR => 1);
    #print "D:tempfilename=$tempfilename\n";
    write_binary($tempfilename, $res->{content});

    require Parse::CPAN::Packages;
    my $pcp = Parse::CPAN::Packages->new($tempfilename);
    my $m = $pcp->package($mod);
    unless ($m) {
        return [404, "No such module '$mod' in $url"];
    }

    [200, "OK", $m->version];
}

1;
# ABSTRACT: Handler for the "darkpan" authority scheme

__END__