Google-Cloud-Compute-V1
view release on metacpan or search on metacpan
lib/Google/Cloud/Compute/V1/NetworksClient.pm view on Meta::CPAN
service => 'google.cloud.compute.v1.Networks',
method => 'Patch',
request => $request,
response_class => $response_class,
});
return $response;
}
sub remove_peering {
my ($self, %params) = @_;
my $request_class = 'Google::Cloud::Compute::V1::Compute::RemovePeeringNetworkRequest';
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.Networks',
method => 'RemovePeering',
request => $request,
response_class => $response_class,
});
return $response;
}
sub request_remove_peering {
my ($self, %params) = @_;
my $request_class = 'Google::Cloud::Compute::V1::Compute::RequestRemovePeeringNetworkRequest';
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.Networks',
method => 'RequestRemovePeering',
request => $request,
response_class => $response_class,
});
return $response;
}
sub switch_to_custom_mode {
my ($self, %params) = @_;
my $request_class = 'Google::Cloud::Compute::V1::Compute::SwitchToCustomModeNetworkRequest';
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.Networks',
method => 'SwitchToCustomMode',
request => $request,
response_class => $response_class,
});
return $response;
}
sub update_peering {
my ($self, %params) = @_;
my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdatePeeringNetworkRequest';
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.Networks',
method => 'UpdatePeering',
request => $request,
response_class => $response_class,
});
return $response;
}
1; # End of Google::Cloud::Compute::V1::NetworksClient
__END__
=head1 NAME
Google::Cloud::Compute::V1::NetworksClient - Client library for Google Cloud Services
=head1 SYNOPSIS
use Google::Cloud::Compute::V1::NetworksClient;
use Google::Auth;
my $auth = Google::Auth->default();
# 1. High-performance gRPC Transport (Default)
my $grpc_client = Google::Cloud::Compute::V1::NetworksClient->new(
credentials => $auth,
transport => 'grpc', # Optional: 'grpc' is default
);
# 2. HTTP/REST Transport
my $rest_client = Google::Cloud::Compute::V1::NetworksClient->new(
credentials => $auth,
transport => 'rest',
);
# Execute service methods
my $res = $grpc_client->some_method( %params );
=head1 DESCRIPTION
C<Google::Cloud::Compute::V1::NetworksClient> 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.471 second using v1.01-cache-2.11-cpan-7e94247ccb0 )