01;
use strict;
use warnings;
our $VERSION = "0.05";
use Carp;
use Furl;
use HTTP::Request;
use JSON;
use MIME::Base64;
use Moo;
use POSIX qw(setlocale LC_TIME strftime);
use Scalar::Util qw(reftype
ut => (
is => 'rw',
default => sub {
1,
},
);
has json => (
is => 'rw',
default => sub {
JSON->new,
},
);
sub _build_signature {
my ($self) = @_;
my $
pi_version . ".$target" );
$req->header('content-type' => 'application/x-amz-json-1.0');
$content = $self->json->encode($content);
$req->content($content);
$req->header('Content-Length