Yet Another CPAN Grep

Acme-CPANAuthors ( I/IS/ISHIGAKI/Acme-CPANAuthors-0.27.tar.gz, ISHIGAKI, 2024; MetaCPAN )

Acme-CPANAuthors/lib/Acme/CPANAuthors/Utils/Kwalitee.pm ( view source; MetaCPAN )

package Acme::CPANAuthors::Utils::Kwalitee;

use strict;
use warnings;
use HTTP::Tiny;
use JSON::PP ();

my $ua;

sub _uri { "https://api.cpanauthors.org/kwalitee/" . shift }

sub _ua {
  my $class =

"$res->{status} $res->{reason}");
  }

  my $json = eval { JSON::PP::decode_json($res->{content}) };
  if ($@) {
    $class->_error($@);
  }
  return $json;
}

sub _error {
  my ($class, $error) = @_;