File Coverage

blib/lib/AWS/CloudFront/CustomOrigin.pm

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	8	8	100.0

package S3::CloudFront::CustomOrigin;

use VSO;
use Data::Validate::Domain 'is_domain';


has 'DNSName' => (
  is        => 'ro',
  isa       => 'Str',
  required  => 1,
  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
    )
  }
);

has 'OriginProtocolPolicy' => (
  is        => 'ro',
  isa       => 'Str',
  required  => 0,
  where     => sub {
    $_ =~ m{^(http-only|match-viewer)$}
  }
);

1;# return true: