File Coverage

blib/lib/WWW/Yotpo.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package WWW::Yotpo;

use strict;
use 5.008_005;
our $VERSION = '0.01';

use Carp;
use LWP::UserAgent;
use JSON;
use MIME::Base64;
use HTTP::Request;
use vars qw/$errstr/;

sub errstr { $errstr }

sub new {
    my $class = shift;
    my %args = @_ % 2 ? %{$_[0]} : @_;

    $args{client_id} or croak 'client_id is required.';
    $args{client_secret}  or croak 'client_secret is required.';

    $args{ua} ||= LWP::UserAgent->new;

    return bless \%args, $class;
}

sub oauth_token {
    my $self = shift;
    my %params = @_ % 2 ? %{$_[0]} : @_;
    $self->request('oauth/token', 'POST', {
        "client_id" => $self->{client_id},
        "client_secret" => $self->{client_secret},
        "grant_type" => "client_credentials"
    });
}

sub mass_create {
    my $self = shift;
    my %params = @_ % 2 ? %{$_[0]} : @_;
    $self->request('apps/' . $self->{client_id} . '/purchases/mass_create', 'POST', {
        Content => encode_json(\%params),
        utoken => $params{utoken}
    });
}

sub purchases {
    my $self = shift;
    my %params = @_ % 2 ? %{$_[0]} : @_;
    $self->request('apps/' . $self->{client_id} . '/purchases', 'GET', \%params);
}

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

    $url = 'https://api.yotpo.com/' . $url;

    $params ||= {};
    my $content = delete $params->{Content};

    my $uri = URI->new($url);
    $uri->query_form($params) if keys %$params;

    my $req = HTTP::Request->new($method, $uri);
    if ($content) {
        $req->content($content);
        $req->content_type('application/json');
    }
    my $res = $self->{ua}->request($req);
    # print Dumper(\$res); use Data::Dumper;
    if (not $res->header('Content-Type') =~ /json/) {
        $errstr = $res->status_line;
        return;
    }

    return decode_json($res->decoded_content);
}

1;
__END__