;
use 5.006;
use strict;
use warnings FATAL => 'all';
use Carp qw( croak );
use Data::UUID;
use JSON::Any;
use LWP::UserAgent;
use URI;
our $VALID_NAME_RE = qr/^[a-z0-9][a-z0-9\-_ ]*$/;
=head1 NAM
host => 'http://localhost:5000',
ua => LWP::UserAgent->new,
json => JSON::Any->new,
client_id => Data::UUID->new->create_str,
%args,
};
ble
my $json = ( $resp->is_success )
? $resp->content
: '{"status": "failed", "response": "http error: sixpack is unreachable"}';
return $self->{json}->jsonToObj( $json );