Google-Cloud-Compute-V1

 view release on metacpan or  search on metacpan

lib/Google/Cloud/Compute/V1/AutoscalersClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.Autoscalers',
        method         => 'TestIamPermissions',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateAutoscalerRequest';
    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.Autoscalers',
        method         => 'Update',
        request        => $request,

lib/Google/Cloud/Compute/V1/BackendBucketsClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.BackendBuckets',
        method         => 'TestIamPermissions',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateBackendBucketRequest';
    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.BackendBuckets',
        method         => 'Update',
        request        => $request,

lib/Google/Cloud/Compute/V1/BackendServicesClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.BackendServices',
        method         => 'TestIamPermissions',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateBackendServiceRequest';
    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.BackendServices',
        method         => 'Update',
        request        => $request,

lib/Google/Cloud/Compute/V1/DisksClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.Disks',
        method         => 'TestIamPermissions',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateDiskRequest';
    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.Disks',
        method         => 'Update',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateKmsKeyDiskRequest';
    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.Disks',
        method         => 'UpdateKmsKey',
        request        => $request,

lib/Google/Cloud/Compute/V1/FirewallsClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.Firewalls',
        method         => 'TestIamPermissions',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateFirewallRequest';
    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.Firewalls',
        method         => 'Update',
        request        => $request,

lib/Google/Cloud/Compute/V1/FutureReservationsClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.FutureReservations',
        method         => 'List',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateFutureReservationRequest';
    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.FutureReservations',
        method         => 'Update',
        request        => $request,

lib/Google/Cloud/Compute/V1/GlobalVmExtensionPoliciesClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.GlobalVmExtensionPolicies',
        method         => 'List',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateGlobalVmExtensionPolicyRequest';
    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.GlobalVmExtensionPolicies',
        method         => 'Update',
        request        => $request,

lib/Google/Cloud/Compute/V1/HealthChecksClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.HealthChecks',
        method         => 'TestIamPermissions',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateHealthCheckRequest';
    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.HealthChecks',
        method         => 'Update',
        request        => $request,

lib/Google/Cloud/Compute/V1/InstanceGroupManagersClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.InstanceGroupManagers',
        method         => 'SuspendInstances',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdatePerInstanceConfigsInstanceGroupManagerRequest';
    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.InstanceGroupManagers',
        method         => 'UpdatePerInstanceConfigs',
        request        => $request,

lib/Google/Cloud/Compute/V1/InstancesClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.Instances',
        method         => 'TestIamPermissions',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateInstanceRequest';
    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.Instances',
        method         => 'Update',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateAccessConfigInstanceRequest';
    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.Instances',
        method         => 'UpdateAccessConfig',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateDisplayDeviceInstanceRequest';
    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.Instances',
        method         => 'UpdateDisplayDevice',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateNetworkInterfaceInstanceRequest';
    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.Instances',
        method         => 'UpdateNetworkInterface',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateShieldedInstanceConfigInstanceRequest';
    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.Instances',
        method         => 'UpdateShieldedInstanceConfig',
        request        => $request,

lib/Google/Cloud/Compute/V1/LicensesClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.Licenses',
        method         => 'TestIamPermissions',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateLicenseRequest';
    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.Licenses',
        method         => 'Update',
        request        => $request,

lib/Google/Cloud/Compute/V1/NetworksClient.pm  view on Meta::CPAN

    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,

lib/Google/Cloud/Compute/V1/PreviewFeaturesClient.pm  view on Meta::CPAN

    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,

lib/Google/Cloud/Compute/V1/RegionAutoscalersClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.RegionAutoscalers',
        method         => 'TestIamPermissions',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateRegionAutoscalerRequest';
    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.RegionAutoscalers',
        method         => 'Update',
        request        => $request,

lib/Google/Cloud/Compute/V1/RegionBackendServicesClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.RegionBackendServices',
        method         => 'TestIamPermissions',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateRegionBackendServiceRequest';
    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.RegionBackendServices',
        method         => 'Update',
        request        => $request,

lib/Google/Cloud/Compute/V1/RegionCommitmentsClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.RegionCommitments',
        method         => 'List',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateRegionCommitmentRequest';
    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.RegionCommitments',
        method         => 'Update',
        request        => $request,

lib/Google/Cloud/Compute/V1/RegionDisksClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.RegionDisks',
        method         => 'TestIamPermissions',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateRegionDiskRequest';
    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.RegionDisks',
        method         => 'Update',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateKmsKeyRegionDiskRequest';
    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.RegionDisks',
        method         => 'UpdateKmsKey',
        request        => $request,

lib/Google/Cloud/Compute/V1/RegionHealthChecksClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.RegionHealthChecks',
        method         => 'TestIamPermissions',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateRegionHealthCheckRequest';
    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.RegionHealthChecks',
        method         => 'Update',
        request        => $request,

lib/Google/Cloud/Compute/V1/RegionInstanceGroupManagersClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.RegionInstanceGroupManagers',
        method         => 'SuspendInstances',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdatePerInstanceConfigsRegionInstanceGroupManagerRequest';
    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.RegionInstanceGroupManagers',
        method         => 'UpdatePerInstanceConfigs',
        request        => $request,

lib/Google/Cloud/Compute/V1/RegionSnapshotsClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.RegionSnapshots',
        method         => 'TestIamPermissions',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateKmsKeyRegionSnapshotRequest';
    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.RegionSnapshots',
        method         => 'UpdateKmsKey',
        request        => $request,

lib/Google/Cloud/Compute/V1/RegionUrlMapsClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.RegionUrlMaps',
        method         => 'Patch',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateRegionUrlMapRequest';
    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.RegionUrlMaps',
        method         => 'Update',
        request        => $request,

lib/Google/Cloud/Compute/V1/ReservationsClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.Reservations',
        method         => 'TestIamPermissions',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateReservationRequest';
    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.Reservations',
        method         => 'Update',
        request        => $request,

lib/Google/Cloud/Compute/V1/RoutersClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.Routers',
        method         => 'Preview',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateRouterRequest';
    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.Routers',
        method         => 'Update',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateNamedSetRouterRequest';
    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.Routers',
        method         => 'UpdateNamedSet',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateRoutePolicyRouterRequest';
    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.Routers',
        method         => 'UpdateRoutePolicy',
        request        => $request,

lib/Google/Cloud/Compute/V1/SnapshotsClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.Snapshots',
        method         => 'TestIamPermissions',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateKmsKeySnapshotRequest';
    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.Snapshots',
        method         => 'UpdateKmsKey',
        request        => $request,

lib/Google/Cloud/Compute/V1/StoragePoolsClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.StoragePools',
        method         => 'TestIamPermissions',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateStoragePoolRequest';
    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.StoragePools',
        method         => 'Update',
        request        => $request,

lib/Google/Cloud/Compute/V1/UrlMapsClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.UrlMaps',
        method         => 'TestIamPermissions',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateUrlMapRequest';
    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.UrlMaps',
        method         => 'Update',
        request        => $request,

lib/Google/Cloud/Compute/V1/ZoneVmExtensionPoliciesClient.pm  view on Meta::CPAN

    my $response = $self->transport->call({
        service        => 'google.cloud.compute.v1.ZoneVmExtensionPolicies',
        method         => 'List',
        request        => $request,
        response_class => $response_class,
    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Compute::V1::Compute::UpdateZoneVmExtensionPolicyRequest';
    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.ZoneVmExtensionPolicies',
        method         => 'Update',
        request        => $request,