Yet Another CPAN Grep

API-Drip-Request ( D/DW/DWRIGHT/API-Drip-Request-0.05.tar.gz, DWRIGHT, 2017; MetaCPAN )

API-Drip-Request/lib/API/Drip/Request.pm ( view source; MetaCPAN )

ec;
use File::HomeDir;
use Readonly;
use Carp;
use LWP::UserAgent;
use HTTP::Request::Common;
use JSON;
use URI;
use Data::Printer;

Readonly our %DEFAULTS => (
    DRIP_TOKEN => undef,
    DRIP_ID

  if ( ref($content) ) {
        $request->content_type('application/vnd.api+json');
        $request->content( encode_json( $content ) );
    }
    $request->authorization_basic( $self->{DRIP_TOKEN},

   return undef;
    }
    my $decoded = eval {decode_json( $result->content )};
    if ( $@ ) {
        $self->{debugger}->('Failed to decode JSON:', $@, $result->content);
        die $result;
    }