File Coverage

blib/lib/Ambassador/API/V2.pm

Criterion	Covered	Total	%
statement	17	39	43.5
branch	0	4	0.0
condition			n/a
subroutine	6	11	54.5
pod	2	2	100.0
total	25	56	44.6

package Ambassador::API::V2;

use Moo;
use v5.10;

with 'Ambassador::API::V2::Role::HasJSON';
use HTTP::Tiny;
use URI;
use Ambassador::API::V2::Error;
use Ambassador::API::V2::Result;

our $VERSION = '0.001';

has username => (
    is       => 'ro',
    required => 1
);

has key => (
    is       => 'ro',
    required => 1
);

has url => (
    is     => 'ro',
    coerce => sub {
        return URI->new($_[0]);
    },
    default => sub { 'https://getambassador.com/api/v2/' }
);

# Configure and cache the HTTP::Tiny object
has http => (
    is      => 'ro',
    default => sub {
        return HTTP::Tiny->new(
            agent           => "Ambassador-API-V2/$VERSION",
            default_headers => {'Content-Type' => 'application/json'}
        );
    }
);

sub _make_url {
    my $self   = shift;
    my $method = shift;

    my $url = $self->url->clone;

    # Ambassador is very sensitive to double slashes.
    my $path = $url->path . join '/', $self->username, $self->key, 'json', $method;
    $path =~ s{/{2,}}{/}g;

    $url->path($path);

    return $url;
}

sub _handle_response {
    my $self = shift;
    my ($response) = @_;

    die Ambassador::API::V2::Error->new_from_response($response) if !$response->{success};

    return Ambassador::API::V2::Result->new_from_response($response);
}

sub _request {
    my $self = shift;
    my ($type, $method, $args) = @_;

    my $url = $self->_make_url($method);

    my $opts = {};
    $opts->{content} = $self->json->encode($args) if $args;
    my $response = $self->http->request(uc $type, $url, $opts);

    return $self->_handle_response($response);
}

sub post {
    my $self = shift;
    return $self->_request('POST', @_);
}

sub get {
    my $self = shift;
    return $self->_request('GET', @_);
}

1;

__END__