File Coverage

blib/lib/OpenSourceOrg/API.pm

Criterion	Covered	Total	%
statement	24	48	50.0
branch	0	2	0.0
condition			n/a
subroutine	8	14	57.1
pod	4	4	100.0
total	36	68	52.9

package OpenSourceOrg::API;

use strict;
use warnings;
use utf8;

our $VERSION = '0.001';    # VERSION

# ABSTRACT: Perl API Bindings to the OSI License API

use Moo;
use REST::Client;
use Const::Fast;
use JSON;
use Carp;

const my $base_url => 'https://api.opensource.org';

has _api_client => ( is => 'lazy' );

sub _build__api_client {
    my $client = REST::Client->new();
    $client->setHost($base_url);
    return $client;
}

sub all {
    my $self   = shift();
    my $client = $self->_api_client;
    return $self->_handle_response( $client->GET('/licenses/') );
}

sub tagged {
    my $self    = shift();
    my $keyword = shift();
    my $client  = $self->_api_client;
    return $self->_handle_response( $client->GET( '/licenses/' . $keyword ) );
}

sub get {
    my $self   = shift();
    my $osi_id = shift();
    my $client = $self->_api_client;
    return $self->_handle_response( $client->GET( '/license/' . $osi_id ) );
}

sub get_by_scheme {
    my $self   = shift();
    my $scheme = shift();
    my $id     = shift();
    my $client = $self->_api_client;
    return $self->_handle_response( $client->GET( '/license/' . join( '/', $scheme, $id ) ) );
}

sub _handle_response {
    my $self     = shift();
    my $response = shift();
    if ( $response->responseCode() == 200 ) {
        return from_json( $response->responseContent );
    } else {
        croak 'Error: ' . $response->responseCode() . ". Content: " . $response->responseContent;
    }
}

1;

__END__