File Coverage

blib/lib/Net/Moip/V2/Endpoint.pm

Criterion	Covered	Total	%
statement	28	33	84.8
branch	4	4	100.0
condition	2	3	66.6
subroutine	9	11	81.8
pod	2	5	40.0
total	45	56	80.3

package Net::Moip::V2::Endpoint;

use IO::Socket::SSL;
use MIME::Base64;
use Furl;
use JSON::MaybeXS ();

use Moo;

my $JSON = JSON::MaybeXS->new->utf8;

has 'path', is => 'ro', required => 1;

has 'api_url', is => 'ro',required => 1;

has 'ua', is => 'ro', required => 1;

has 'token', is => 'ro', required => 1;

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

has 'client_id', is => 'ro';

has 'client_secret', is => 'ro';

has 'access_token', is => 'ro';

has '_basic_auth_token', is => 'ro', lazy => 1, default => sub {
    my $self = shift;
    'Basic '.MIME::Base64::encode_base64( $self->token .':'. $self->key, '');
};

has 'url', is => 'ro', init_arg => undef, default => sub {
    my $self = shift;
    join '/', $self->api_url, $self->path;
};

sub _authorization_string {
    my $self = shift;
    if ($self->{is_oauth}) {
        my $access_token = $self->access_token
            or die "Can't build OAuth authorization. access_token is missing.";

        return "OAuth $access_token";
    }

    $self->_basic_auth_token;
}


sub get {
    my ($self, $id) = @_;

    my $url = join '/', $self->url, $id || ();
    $self->ua->get($url, [
        'Content-Type'   => 'application/json',
        'Authorization' => $self->_authorization_string
    ]);
}

sub post {
    my ($self, $data) = @_;

    $self->ua->post($self->url, [

        'Content-Type'   => 'application/json',
        'Authorization' => $self->_authorization_string

    ], $JSON->encode($data) );
}

sub oauth_get {
    my $self = shift;
    local $self->{is_oauth} = 1;
    $self->get(@_);
}

sub oauth_post {
    my $self = shift;
    local $self->{is_oauth} = 1;
    $self->post(@_);
}


sub decode_json {
    my $self = shift;
    $JSON->decode($_[0]);
}



1;
__END__