File Coverage

blib/lib/WebService/Openaura.pm

Criterion	Covered	Total	%
statement	27	81	33.3
branch	0	4	0.0
condition			n/a
subroutine	9	30	30.0
pod	20	21	95.2
total	56	136	41.1

package WebService::Openaura;
use JSON::XS;
use Cache::LRU;
use Net::DNS::Lite;
use Furl;
use URI;
use URI::QueryParam;
use Carp;
use Moo;
use namespace::clean;
our $VERSION = "0.01";


$Net::DNS::Lite::CACHE = Cache::LRU->new( size => 512 );

has 'api_key' => (
    is => 'rw',
    isa => sub { $_[0] },
    required => 1,
    default => sub { $ENV{OPENAURA_API_KEY} },
);

has 'http' => (
    is => 'rw',
    required => 1,
    default  => sub {
        my $http = Furl::HTTP->new(
            inet_aton => \&Net::DNS::Lite::inet_aton,
            agent => 'WebService::Openaura/' . $VERSION,
            headers => [ 'Accept-Encoding' => 'gzip',],
        );
        return $http;
    },
);


sub classic_artists {
    my ($self, $id, $param) = @_;
    return $self->request("classic/artists/$id", $param);
}

sub classic_version {
    my $self = shift;
    return $self->request("classic/version");
}

sub info_artists {
    my ($self, $id, $param) = @_;
    return $self->request("info/artists/$id", $param);
}

sub info_artists_bio {
    my ($self, $id, $param) = @_;
    return $self->request("info/artists/$id/bio", $param);
}

sub info_artists_cover_photo {
    my ($self, $id, $param) = @_;
    return $self->request("info/artists/$id/cover_photo", $param);
}

sub info_artists_fact_card {
    my ($self, $id, $param) = @_;
    return $self->request("info/artists/$id/fact_card", $param);
}

sub info_artists_profile_photo {
    my ($self, $id, $param) = @_;
    return $self->request("info/artists/$id/profile_photo", $param);
}

sub info_artists_release_art {
    my ($self, $id, $param) = @_;
    return $self->request("info/artists/$id/release_art", $param);
}

sub info_artists_tags {
    my ($self, $id, $param) = @_;
    return $self->request("info/artists/$id/tags", $param);
}

sub info_version {
    my $self = shift;
    return $self->request("info/version");
}

sub particles_artists {
    my ($self, $id, $param) = @_;
    return $self->request("particles/artists/$id", $param);
}

sub particles_particle {
    my ($self, $id, $param) = @_;
    return $self->request("particles/particle/$id", $param);
}

sub particles_sources {
    my ($self, $id, $param) = @_;
    return $self->request("particles/sources/$id", $param);
}

sub particles_version {
    my $self = shift;
    return $self->request("particles/version");
}

sub search_artists {
    my ($self, $param) = @_;
    return $self->request("search/artists", $param);
}

sub search_artists_all {
    my ($self, $param) = @_;
    return $self->request("search/artists_all", $param);
}

sub search_version {
    my $self = shift;
    return $self->request("search/version");
}

sub source_artists {
    my ($self, $id, $param) = @_;
    return $self->request("source/artists/$id", $param);
}

sub source_sources {
    my ($self, $id, $param) = @_;
    return $self->request("source/sources/$id", $param);
}

sub source_version {
    my $self = shift;
    return $self->request("source/version");
}


sub request {
    my ( $self, $path, $query_param ) = @_;

    my $query = URI->new;
    $query->query_param( 'api_key', $self->api_key );
    map { $query->query_param( $_, $query_param->{$_} ) } keys %$query_param;

    my ($minor_version, $code, $message, $headers, $content) =
        $self->http->request(
            scheme => 'http',
            host => 'api.openaura.com',
            path_query => "v1/$path$query",
            method => 'GET',
    );

    if ($path =~ m|search/artists(?:_all)*|) {
        $content =~ s/^(\[.+\])$/{ "artists": $1 }/;
    }
    my $data = decode_json( $content );

    if ( defined $data->{results}{error} ) {
        my $type = $data->{results}{error}{type};
        my $message = $data->{results}{error}{message};
        confess "$type: $message";
    } else {
        return $data;
    }
}


1;
__END__