CPAN::Groonga

rveymonkey API client


use 5.010;
use strict;
use warnings;
use utf8;

use Mouse;

use Carp;
use JSON;
use LWP::UserAgent;
use Log::Any '$log';
use File::Slurp;
use List::Util qw/first/;


our $SM_AP

f->key();
    my $payload = encode_json $data;

    my %header = (
        "Authorization" => "bearer " . $self->token(),
        "Content-Type"  => "application/json",
    );

    $log->trace("Call: 

tent();
    $log->trace("Response: $resp_content")  if $log->is_trace();

    my $result = decode_json $resp_content;

    croak "SM API call failed: $result->{errmsg}"  if $result->{status};

    ret