S3::Client;
use DateTime;
use Try::Tiny;
use List::MoreUtils qw( uniq );
use CHI 0.50;
use JSON qw(decode_json);
sub _init {
my ( $self, $options ) = @_;
$self->{AWS_ACCESS_KEY_ID} = $option
WS_S3_TEMPLATE_CACHE_OPTIONS} && !$cache_opts ) {
try {
$cache_opts = decode_json( $ENV{TEMPLATE_CACHE_OPTIONS} );
}
catch {
$cache_opts = undef;
t variable TEMPLATE_CACHE_OPTIONS. If using the environment
variable, the values need to be L<JSON> encoded. Otherwise the value will be
an in memory store. The option send is the following: