File Coverage

lib/Acme/CPANAuthors/Utils/Kwalitee.pm

Criterion	Covered	Total	%
statement	25	29	86.2
branch	4	8	50.0
condition	2	6	33.3
subroutine	7	8	87.5
pod	1	1	100.0
total	39	52	75.0

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

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

my $ua;

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

sub _ua {
  my $class = shift;
  $ua = $_[0] if @_;
  $ua ||= HTTP::Tiny->new(env_proxy => 1);
  $ua;
}

sub fetch {
  my ($class, $id) = @_;

  return unless $id;

  my $res = $class->_ua->get(_uri(lc $id));
  unless ($res->{success} && $res->{status} == 200) {
    $class->_error("$res->{status} $res->{reason}");
  }

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

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

  die "API SERVER ERROR\n"
    . "Couldn't parse kwalitee info from the api server\n"
    . "  $error\n"
    . "Sorry for the inconvenience. If this lingers long,\n"
    . "please drop a line to .\n";
}

1;

__END__