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 )