Yet Another CPAN Grep

WWW-Yotpo ( F/FA/FAYLAND/WWW-Yotpo-0.03.tar.gz, FAYLAND, 2018; MetaCPAN )

WWW-Yotpo/lib/WWW/Yotpo.pm ( view source; MetaCPAN )

WWW::Yotpo;

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

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

sub errstr { $errstr }

sub new {
    my $class = shif

uest('apps/' . $self->{client_id} . '/purchases/mass_create', 'POST', {
        Content => encode_json(\%params),
        utoken => $params{utoken}
    });
}

sub purchases {
    my $self = shift;

ontent_type('application/json');
    }
    my $res = $self->{ua}->request($req);
    # print Dumper(\$res); use Data::Dumper;
    if (not $res->header('Content-Type') =~ /json/) {
        $errstr = $r