Yet Another CPAN Grep

WWW-Shorten-Yourls ( C/CA/CAPOEIRAB/WWW-Shorten-Yourls-1.001.tar.gz, CAPOEIRAB, 2017; MetaCPAN )

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

ten::Yourls;

use strict;
use warnings;
use Carp ();
use File::HomeDir ();
use File::Spec ();
use JSON::MaybeXS;
use Path::Tiny qw(path);
use Scalar::Util qw(blessed);
use URI ();

use base qw( WWW::S

 password server signature),
        ];
        return [@{$attrs}];
    }
}

# _json_request (static, private)
sub _json_request {
    my $url = shift;
    Carp::croak("Invalid URI object") unless $ur

ation/json}) {
        Carp::croak("Unexpected response: $content");
    }
    my $json = decode_json($content);
    Carp::croak("Invalid data returned: $content") unless $json;
    return $json;
}

#