Yet Another CPAN Grep

WebService-Bonusly ( H/HA/HANENKAMP/WebService-Bonusly-1.001.tar.gz, HANENKAMP, 2016; MetaCPAN )

WebService-Bonusly/lib/WebService/Bonusly/Base.pm ( view source; MetaCPAN )

 '_build_ua',
);

# Undocumented attribute, mostly useful for testing. Use at your own risk!
has _json_flags => (
    is          => 'ro',
    isa         => 'HashRef',
    required    => 1,
    defau

WebService-Bonusly ( H/HA/HANENKAMP/WebService-Bonusly-1.001.tar.gz, HANENKAMP, 2016; MetaCPAN )

WebService-Bonusly/lib/WebService/Bonusly/Service.pm ( view source; MetaCPAN )

ce::Bonusly::Service;
$WebService::Bonusly::Service::VERSION = '1.001';
use v5.14;
use Moose;
use JSON;
use Try::Tiny;
use URI::Escape;

# ABSTRACT: A utility class for WebService::Bonusly services

Bonusly',
    required    => 1,
    weak_ref    => 1,
    handles     => [ qw( token base_url ua _json_flags print_debug ) ],
);

sub _perform_action {
    my ($self, $method, $path_info, $params, $to

       my $content = to_json(\%clean, $self->_json_flags);

        $self->print_debug("SEND>> $method $path");
        $self->print_debug("SEND>> Content-Type: application/json");
        $self->prin