Google-Cloud-Compute-V1
view release on metacpan or search on metacpan
lib/Google/Cloud/Compute/V1/PreviewFeaturesClient.pm view on Meta::CPAN
if (!$auth || !eval { $auth->can('get_token') }) {
$auth = Google::Auth->default();
}
my $token = $auth->get_token();
my $target = 'localhost:50051';
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 get {
my ($self, %params) = @_;
my $request_class = 'Google::Cloud::Compute::V1::Compute::GetPreviewFeatureRequest';
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::Compute::V1::Compute::PreviewFeature';
my $response = $self->transport->call({
service => 'google.cloud.compute.v1.PreviewFeatures',
method => 'Get',
request => $request,
response_class => $response_class,
});
return $response;
}
sub list {
my ($self, %params) = @_;
my $request_class = 'Google::Cloud::Compute::V1::Compute::ListPreviewFeaturesRequest';
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::Compute::V1::Compute::PreviewFeatureList';
my $response = $self->transport->call({
service => 'google.cloud.compute.v1.PreviewFeatures',
method => 'List',
request => $request,
response_class => $response_class,
});
return $response;
}
sub update {
my ($self, %params) = @_;
my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdatePreviewFeatureRequest';
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::Compute::V1::Compute::Operation';
my $response = $self->transport->call({
service => 'google.cloud.compute.v1.PreviewFeatures',
method => 'Update',
request => $request,
response_class => $response_class,
});
return $response;
}
1; # End of Google::Cloud::Compute::V1::PreviewFeaturesClient
__END__
=head1 NAME
Google::Cloud::Compute::V1::PreviewFeaturesClient - Client library for Google Cloud Services
=head1 SYNOPSIS
use Google::Cloud::Compute::V1::PreviewFeaturesClient;
use Google::Auth;
my $auth = Google::Auth->default();
# 1. High-performance gRPC Transport (Default)
my $grpc_client = Google::Cloud::Compute::V1::PreviewFeaturesClient->new(
credentials => $auth,
transport => 'grpc', # Optional: 'grpc' is default
);
# 2. HTTP/REST Transport
my $rest_client = Google::Cloud::Compute::V1::PreviewFeaturesClient->new(
credentials => $auth,
transport => 'rest',
);
# Execute service methods
my $res = $grpc_client->some_method( %params );
=head1 DESCRIPTION
C<Google::Cloud::Compute::V1::PreviewFeaturesClient> is an auto-generated client library for Google Cloud Services.
It provides a unified client interface supporting both high-performance HTTP/2 gRPC and HTTP/REST transports, with automatic Google Cloud Application Default Credentials (ADC) resolution and typed Protocol Buffers message handling.
=head1 SOURCE
Generated from the following Protocol Buffers schemas:
=over 4
=item * C<google/cloud/compute/v1/compute.proto>
( run in 0.884 second using v1.01-cache-2.11-cpan-7e94247ccb0 )