Google-RestApi

 view release on metacpan or  search on metacpan

lib/Google/RestApi/Auth/ServiceAccount.pm  view on Meta::CPAN

  state $check = compile_named(
    config_dir   => ReadableDir, { optional => 1 },
    config_file  => ReadableFile, { optional => 1 },
    account_file => ReadableFile,
    scope        => ArrayRef[Str],
  );
  $self = $check->(%$self);
  $self = bless $self, $class;

  my $auth = WWW::Google::Cloud::Auth::ServiceAccount->new(
    credentials_path => $self->{account_file},
    # undocumented feature of WWW::Google::Cloud::Auth::ServiceAccount
    scope            => join(' ', @{ $self->{scope} }),
  );
  $self->{auth} = $auth;

  return $self;
}

sub headers {
  my $self = shift;



( run in 0.232 second using v1.01-cache-2.11-cpan-4d50c553e7e )