view release on metacpan or  search on metacpan

lib/DarkPAN/Indexer/Storage/S3.pm  view on Meta::CPAN

  return $self;
}

########################################################################
sub _s3 {
########################################################################
  my ($self) = @_;

  return $self->{s3} //= Amazon::S3::Lite->new(
    { region      => $self->{region},
      credentials => Amazon::Credentials->new( profile => $self->{profile} ),
    }
  );
}

########################################################################
sub base_url { return $_[0]->{base_url} }
########################################################################

########################################################################
# list_distributions() -> list of keys (relative to the bucket) that