File Coverage

blib/lib/Net/Dimona.pm

Criterion	Covered	Total	%
statement	15	36	41.6
branch	2	8	25.0
condition	1	2	50.0
subroutine	5	13	38.4
pod	7	8	87.5
total	30	67	44.7

package Net::Dimona;
use strict;
use warnings;
use LWP::UserAgent;
use JSON::MaybeXS qw( encode_json decode_json );

our $VERSION = 0.02;

sub new {
    my ($class, %params) = @_;
    die 'api_key required' unless defined $params{api_key};
    return bless {
        debug   => $params{debug},
        api_key => ($params{api_key} || die 'api_key is required'),
        ua      => LWP::UserAgent->new(
            timeout => exists $params{timeout} ? $params{timeout} : 5,
        ),
    }, $class;
}

sub _request {
    my ($self, $method, $url, $params) = @_;

    my $res = $self->{ua}->$method(
        'https://camisadimona.com.br/api/' . $url,
        'api-key'      => $self->{api_key},
        'Accept'       => 'application/json',
        'Content-Type' => 'application/json',
        ($params ? ('Content' => encode_json($params)) : ())
    );
    my $data;
    eval { $data = decode_json($res->decoded_content) };
    $data = { error => $res->decoded_content } unless $data;
    return $data;
}

sub create_order {
    my ($self, $params) = @_;
    return $self->_request('post', 'v2/order', $params);
}

sub list_orders {
    my ($self) = @_;
    return $self->_request('get', 'v2/orders');
}

sub get_order {
    my ($self, $order_id) = @_;
    return $self->_request('get', 'v2/order/' . $order_id);
}

sub get_order_tracking {
    my ($self, $order_id) = @_;
    return $self->_request('get', 'v2/order/' . $order_id . '/tracking');
}

sub get_order_timeline {
    my ($self, $order_id) = @_;
    return $self->_request('get', 'v2/order/' . $order_id . '/timeline');
}

sub product_availability {
    my ($self, $sku) = @_;
    return $self->_request('get', 'v2/sku/' . $sku . '/availability');
}

sub quote_shipping {
    my ($self, $params) = @_;
    return $self->_request('post', 'v2/shipping', $params);
}


1;
__END__