view release on metacpan or  search on metacpan

lib/Google/Cloud/Kms/AutokeyAdminClient.pm  view on Meta::CPAN

package Google::Cloud::Kms::AutokeyAdminClient;

use strict;
use warnings;
use Moo;
use Google::gRPC::Client;
use Google::Cloud::REST::Client;
use Google::Auth;
use Carp qw(croak);

use Protobuf;
use Google::Api::Common;
use Google::Cloud::Kms::V1::Resources;
use Google::Cloud::Kms::V1::EkmService;
use Google::Cloud::Kms::V1::AutokeyAdmin;
use Google::Cloud::Kms::V1::Autokey;
use Google::Cloud::Kms::V1::HsmManagement;
use Google::Cloud::Kms::V1::Service;

our $VERSION = '0.04';

has credentials => ( is => 'ro', required => 0 );
has transport   => ( is => 'rw' );

sub BUILD {
    my ($self) = @_;

    # Resolve credentials: use passed credentials object if it implements get_token, or default to ADC
    my $auth = $self->credentials;
    if (!$auth || !eval { $auth->can('get_token') }) {
        $auth = Google::Auth->default();
    }
    my $token = $auth->get_token();

    my $target = 'cloudkms.googleapis.com';
    my $t = $self->transport || 'grpc';

    if (ref($t) && eval { $t->can('call') }) {
        # Already a transport object
    } elsif (lc($t) eq 'rest') {
        my $client = Google::Cloud::REST::Client->new(
            target     => $target,
            auth_token => $token,
        );
        $self->transport($client);
    } else {
        # Default high-performance HTTP/2 gRPC client
        my $client = Google::gRPC::Client->new(
            target     => $target,
            auth_token => $token,
        );
        $self->transport($client);
    }
}

sub update_autokey_config {
    my ($self, %params) = @_;

    my $request_class = 'Google::Cloud::Kms::V1::AutokeyAdmin::UpdateAutokeyConfigRequest';
    my $request = eval { $request_class->new(\%params) } || eval { $request_class->new(%params) } || ($request_class->can('encode') ? $request_class->encode(\%params) : \%params);

    my $response_class = 'Google::Cloud::Kms::V1::AutokeyAdmin::AutokeyConfig';
    my $response = $self->transport->call({
        service        => 'google.cloud.kms.v1.AutokeyAdmin',
        method         => 'UpdateAutokeyConfig',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

sub get_autokey_config {
    my ($self, %params) = @_;

    my $request_class = 'Google::Cloud::Kms::V1::AutokeyAdmin::GetAutokeyConfigRequest';
    my $request = eval { $request_class->new(\%params) } || eval { $request_class->new(%params) } || ($request_class->can('encode') ? $request_class->encode(\%params) : \%params);

    my $response_class = 'Google::Cloud::Kms::V1::AutokeyAdmin::AutokeyConfig';
    my $response = $self->transport->call({
        service        => 'google.cloud.kms.v1.AutokeyAdmin',
        method         => 'GetAutokeyConfig',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

sub show_effective_autokey_config {
    my ($self, %params) = @_;

    my $request_class = 'Google::Cloud::Kms::V1::AutokeyAdmin::ShowEffectiveAutokeyConfigRequest';
    my $request = eval { $request_class->new(\%params) } || eval { $request_class->new(%params) } || ($request_class->can('encode') ? $request_class->encode(\%params) : \%params);

    my $response_class = 'Google::Cloud::Kms::V1::AutokeyAdmin::ShowEffectiveAutokeyConfigResponse';
    my $response = $self->transport->call({
        service        => 'google.cloud.kms.v1.AutokeyAdmin',
        method         => 'ShowEffectiveAutokeyConfig',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}
1; # End of Google::Cloud::Kms::AutokeyAdminClient

__END__

=head1 NAME

Google::Cloud::Kms::AutokeyAdminClient - Client library for Google Cloud Services

=head1 SYNOPSIS

    use Google::Cloud::Kms::AutokeyAdminClient;