AWS-CloudFront

 view release on metacpan or  search on metacpan

inc/Module/Install/Makefile.pm  view on Meta::CPAN

sub prompt {
	shift;

	# Infinite loop protection
	my @c = caller();
	if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
		die "Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0])";
	}

	# In automated testing, always use defaults
	if ( $ENV{AUTOMATED_TESTING} and ! $ENV{PERL_MM_USE_DEFAULT} ) {
		local $ENV{PERL_MM_USE_DEFAULT} = 1;
		goto &ExtUtils::MakeMaker::prompt;
	} else {
		goto &ExtUtils::MakeMaker::prompt;
	}
}

sub makemaker_args {
	my $self = shift;

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

  is        => 'ro',
  isa       => 'Str',
  required  => 1,
);

has 'ua' => (
  is        => 'ro',
  isa       => 'LWP::UserAgent',
  lazy      => 1,
  required  => 0,
  default => sub { LWP::UserAgent->new( agent => 'foo/bar v1.2' ) }
);


sub request
{
  my ($s, $type, %args) = @_;
  
  my $class = "AWS::CloudFront::Request::$type";
  load_class($class);
  return $class->new( %args, cf => $s, type => $type );

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

  where     => sub {
    is_domain($_, { do_allow_underscore => 1 })
  }
);


has 'HTTPPort' => (
  is        => 'ro',
  isa       => 'Int',
  required  => 0,
  default   => sub { 80 },
  where     => sub {
    $_ == 80 ||
    $_ == 443 ||
    (
      $_ >= 1024 &&
      $_ <= 65535
    )
  }
);

has 'HTTPSPort' => (
  is        => 'ro',
  isa       => 'Int',
  required  => 0,
  default   => sub { 443 },
  where     => sub {
    $_ == 80 ||
    $_ == 443 ||
    (
      $_ >= 1024 &&
      $_ <= 65535
    )
  }
);

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

  where     => sub {
    # eg: 2011-05-05T21:11:39.546Z
    m{^(?:\d\d\d\d-\d\d-\d\dT\d+:\d\d:\d\d\.\d+Z)$}
  }
);

has 'InProgressValidationBatches' => (
  is        => 'ro',
  isa       => 'Int',
  required  => 0,
  default   => sub { 0 }
);

has 'DomainName'  => (
  is        => 'rw',
  isa       => 'Str',
  required  => 1,
);

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

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

  is        => 'ro',
  isa       => 'AWS::CloudFront::S3Origin|AWS::CloudFront::CustomOrigin',
  required  => 1,
);

has 'CallerReference' => (
  is        => 'ro',
  isa       => 'Str',
  required  => 1,
  lazy      => 1,
  default   => sub {
    my $s = shift;
    $s->cf->distribution( Id => $s->Id )->CallerReference
  },
);

has 'CNAME' => (
  is        => 'rw',
  isa       => 'Str',
  required  => 0,
);

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

  is        => 'ro',
  isa       => 'ArrayRef[AWS::CloudFront::TrustedSigner]',
  required  => 0,
);

has 'OriginAccessIdentity' => (
  is        => 'ro',
  isa       => 'Maybe[AWS::CloudFront::OriginAccessIdentity]',
  required  => 0,
  lazy      => 1,
  default   => sub {
    my $s = shift;
    
    foreach my $ident ( $s->cf->origin_access_identities )
    {
    
    }# end foreach()
  }
);

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

has 'CallerReference' => (
  is        => 'ro',
  isa       => 'Str',
  required  => 1,
);

has 'Comment' => (
  is        => 'ro',
  isa       => 'Str',
  required  => 0,
  default   => sub { '' },
);

has 'Location' => (
  is        => 'ro',
  isa       => 'Str',
  required  => 0,
);

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

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

has 'type' => (
  is        => 'ro',
  isa       => 'Str',
  required  => 1,
);

has 'protocol' => (
  is        => 'ro',
  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 { 

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

  is          => 'ro',
  isa         => 'AWS::CloudFront::S3Origin|AWS::CloudFront::CustomOrigin',
  required    => 1,
);

has 'CallerReference' => (
  is        => 'ro',
  isa       => 'Str',
  required  => 0,
  lazy      => 1,
  default   => sub { gettimeofday() },
);

has 'Logging' => (
  is        => 'ro',
  isa       => 'AWS::CloudFront::Logging',
  required  => 0,
);

has 'CNAME' => (
  is        => 'ro',
  isa       => 'Str',
  required  => 0,
);

has 'Comment' => (
  is        => 'ro',
  isa       => 'Str',
  required  => 0,
  default   => sub { '' }
);

has 'Enabled' => (
  is        => 'ro',
  isa       => 'Bool',
  required  => 0,
  default   => sub { 1 },
);

has 'DefaultRootObject' => (
  is        => 'ro',
  isa       => 'Str',
  required  => 0,
);


sub request

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

has 'CallerReference' => (
  is        => 'ro',
  isa       => 'Str',
  required  => 1,
);

has 'Comment' => (
  is        => 'ro',
  isa       => 'Str',
  required  => 0,
  default   => sub { '' },
);


sub request
{
  my $s = shift;
  
  my $uri = 'https://cloudfront.amazonaws.com/2010-11-01/origin-access-identity/cloudfront';

  my $xml = <<"XML";

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

package 
AWS::CloudFront::ResponseParser;

use VSO;
use XML::Simple;

has 'expect_nothing' => (
  is        => 'ro',
  isa       => 'Int',
  required  => 1,
  default   => sub { 0 }
);

has 'response'  => (
  is        => 'ro',
  isa       => 'HTTP::Response',
  required  => 1,
);

has 'type'  => (
  is        => 'ro',
  isa       => 'Str',
  required  => 1,
);

has 'libxml'  => (
  is        => 'ro',
  isa       => 'XML::LibXML',
  required  => 1,
  default   => sub { XML::LibXML->new() },
);

has 'error_code' => (
  is        => 'rw',
  isa       => 'Str',
  required  => 0,
);

has 'error_message' => (
  is        => 'rw',

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

has 'xpc' => (
  is        => 'ro',
  isa       => 'XML::LibXML::XPathContext',
  required  => 0,
);

has 'friendly_error' => (
  is        => 'ro',
  isa       => 'Str',
  required  => 0,
  default   => sub {
    my $s = shift;
    return unless $s->error_code || $s->error_message;
    $s->type . " call had errors: [" . $s->error_code . "] " . $s->error_message;
  }
);


sub BUILD
{
  my $s = shift;

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

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

has 'date' => (
  is        => 'ro',
  isa       => 'Str',
  required  => 1,
  default   => sub {
    time2str(time)
  }
);

has 'signature' => (
  is        => 'ro',
  isa       => 'Str',
  required  => 1,
  lazy      => 1,
  default   => sub {
    my $s = shift;
    encode_base64(hmac_sha1($s->date, $s->cf->secret_access_key));
  }
);


sub auth_header
{
  my $s = shift;