AWS-CloudFront

 view release on metacpan or  search on metacpan

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

	close FH or die "close($_[0]): $!";
}

# _version is for processing module versions (eg, 1.03_05) not
# Perl versions (eg, 5.8.1).

sub _version ($) {
	my $s = shift || 0;
	   $s =~ s/^(\d+)\.?//;
	my $l = $1 || 0;
	my @v = map { $_ . '0' x (3 - length $_) } $s =~ /(\d{1,3})\D?/g;
	   $l = $l . '.' . join '', @v if @v;
	return $l + 0;
}

# Cloned from Params::Util::_CLASS
sub _CLASS ($) {
	(
		defined $_[0]
		and
		! ref $_[0]

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

	for my $subdir (@_) {
		push @$subdirs, $subdir;
	}
}

sub clean_files {
	my $self  = shift;
	my $clean = $self->makemaker_args->{clean} ||= {};
	  %$clean = (
		%$clean,
		FILES => join ' ', grep { length $_ } ($clean->{FILES} || (), @_),
	);
}

sub realclean_files {
	my $self      = shift;
	my $realclean = $self->makemaker_args->{realclean} ||= {};
	  %$realclean = (
		%$realclean,
		FILES => join ' ', grep { length $_ } ($realclean->{FILES} || (), @_),
	);
}

sub libs {
	my $self = shift;
	my $libs = ref $_[0] ? shift : [ shift ];
	$self->makemaker_args( LIBS => $libs );
}

sub inc {

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

    $_ =~ m{^(true|false)$}
  }
);

has 'DefaultRootObject' => (
  is        => 'ro',
  isa       => 'Str',
  required  => 0,
  where     => sub {
    (! defined $_) ||
    (! length $_) ||
    $_ =~ m{^([
      a-z
      A-Z
      0-9
      _\-\.\*\$\/\~"'\&
      |\&
    ]+)$}x;
  }
);

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

package AWS::CloudFront::Logging;

use VSO;

subtype 'AWS::CloudFront::Logging::Prefix'
  => as       'Str'
  => where    { length($_) <= 256 && $_ !~ m{^/} && $_ =~ m{/$} }
  => message  { "length <= 256, can't start with '/' and must end with '/'" }

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

has 'Prefix' => (
  is        => 'ro',
  isa       => 'Maybe[AWS::CloudFront::Logging::Prefix]',