package Net::Fastly::Client;
use strict;
use warnings;
use JSON::Any;
=head1 NAME
Net::Fastly::Client - communicate with the Fastly HTTP API
=head1 SYNOPSIS
=head1 PROXYING
There are two ways to
my $port = $opts{base_port} ||= 80;
$self->{user} ||= $self->{username};
$self->{_json} = JSON::Any->new;
$self->{_ua} = Net::Fastly::Client::UserAgent->new($base, $port, $opts{pro
self->{password});
die "Unauthorized" unless $res->is_success;
my $content = $self->_json->from_json($res->decoded_content);
$self->{_cookie} = $res->header('set-cookie');
return w