view release on metacpan or  search on metacpan

lib/App/SQS.pm  view on Meta::CPAN

  my $queue_name = $self->get_name;
  $queue_name //= $attributes->{name};

  return
    if $self->queue_exists($queue_name);

  $attributes //= {};

  my %default_attrs = (
    VisibilityTimeout             => $DEFAULT_SQS_VISIBILITY_TIMEOUT,
    MessageRetentionPeriod        => $DEFAULT_SQS_MESSAGE_RETENTION_PERIOD,
    ReceiveMessageWaitTimeSeconds => $DEFAULT_SQS_RECEIVE_MESSAGE_WAIT_TIME_SECONDS,
    DelaySeconds                  => $DEFAULT_SQS_DELAY_SECONDS,
  );

  my @attribute_names = qw(
    visibility_timeout
    message_retention_period
    receive_message_wait_time_seconds
    delay_seconds