view release on metacpan or  search on metacpan

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

115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
    my $s = shift;
     
    foreach my $ident ( $s->cf->origin_access_identities )
    {
     
    }# end foreach()
  }
);
 
 
sub update
{
  my $s = shift;
   
  my $type = 'UpdateDistribution';
  my $response = $s->cf->request( $type, Distribution => $s )->request();
   
  if( $response->error_code )
  {
    die $response->msg;
  }# end if()