Yet Another CPAN Grep

WebService-CDNetworks-Purge ( J/JP/JPDUCA/WebService-CDNetworks-Purge-0.23.tar.gz, JPDUCA, 2017; MetaCPAN )

WebService-CDNetworks-Purge/lib/WebService/CDNetworks/Purge.pm ( view source; MetaCPAN )

{'pid'}); 

=cut

our $VERSION = '0.23'; # VERSION

use Carp;
use Try::Tiny;
use URI::Escape;
use JSON;
use LWP::UserAgent;

use Moose;

has 'baseURL' => (
	is       => 'ro',
	isa      => 'Str',
	defa

 of domains/PADs

=cut

sub listPADs {

	my ($self) = @_;

	my $requestPayload = {
		'output' => 'json',
		'user'   => $self -> username,
		'pass'   => $self -> password,
	};

	my $url = $self -> base

_line;
	}

	my $json = decode_json($response -> decoded_content);

	unless ($json -> {'resultCode'} && $json -> {'resultCode'} == 200) {
		die 'Invalid $json -> {resultCode}: ' . ($json -> {'resultCod