view release on metacpan or  search on metacpan

lib/Amazon/SecretsManager.pm  view on Meta::CPAN

  goto &create_client_request_token;
}

sub create_client_request_token {
  my ($self) = @_;
  
  return Data::UUID->new->create_str;
}

sub main {
  require Data::Dumper;
  require JSON::PP;

  JSON::PP->import(qw{ encode_json });
  
  Data::Dumper->import('Dumper');

  $Data::Dumper::Pair = ':';
  $Data::Dumper::Terse = 1;
  
  my $secrets_mgr = Amazon::SecretsManager->new;
  
  my $secret_list = $secrets_mgr->ListSecrets->{SecretList};
  
  print Dumper($secret_list);
    
  if ($secret_list) {
    my @names = map { $_->{Name} } @{$secret_list};