view release on metacpan or  search on metacpan

lib/AWS/CloudFront/Request.pm  view on Meta::CPAN

package
AWS::CloudFront::Request;
use VSO;
use HTTP::Request;
use AWS::CloudFront::ResponseParser;

has 'cf' => (
  is        => 'ro',
  isa       => 'AWS::CloudFront',
  required  => 1,
);

has 'type' => (
  is        => 'ro',

lib/AWS/CloudFront/Request.pm  view on Meta::CPAN

  isa       => 'Str',
  lazy      => 1,
  default   => sub { 'https' }
);


sub _send_request
{
  my ($s, $method, $uri, $headers, $content) = @_;
  
  my $req = HTTP::Request->new( $method => $uri );
  $req->content( $content ) if $content;
  map { 
    $req->header( $_ => $headers->{$_} )
  } keys %$headers;
  
  my $res = $s->cf->ua->request( $req );
  
#  # After creating a bucket and setting its location constraint, we get this
#  # strange 'TemporaryRedirect' response.  Deal with it.
#  if( $res->header('location') && $res->content =~ m{>TemporaryRedirect<}s )

lib/AWS/CloudFront/Signer.pm  view on Meta::CPAN

package
AWS::CloudFront::Signer;

use VSO;
use HTTP::Request::Common;
use HTTP::Date 'time2str';
use MIME::Base64 qw(encode_base64);
use URI::Escape qw(uri_escape_utf8);
use URI::QueryParam;
use URI::Escape;
use URI;
use Digest::HMAC_SHA1 'hmac_sha1';
use Digest::MD5 'md5';
use Encode;