view release on metacpan or  search on metacpan

bin/gcloud-auth.pl  view on Meta::CPAN

  my $help    = 0;
  my $man     = 0;
  my $verbose = 0;
  my $client_id_file;
  my $store_dir =
    File::Spec->catdir($ENV{HOME} // '.', '.google-auth-perl', 'tokens');
  my $port       = 0;      # Default auto-assign
  my $timeout    = 300;    # Default 5 minutes for human interaction
  my $no_browser = 0;

  local @ARGV = @args;

  GetOptions(
    'help|?'           => \$help,
    'man'              => \$man,
    'verbose|v'        => \$verbose,
    'client-id-file=s' => \$client_id_file,
    'store-dir=s'      => \$store_dir,
    'port=i'           => \$port,
    'timeout=i'        => \$timeout,
    'no-browser'       => \$no_browser,