view release on metacpan or  search on metacpan

lib/Giovanni/Stages.pm  view on Meta::CPAN

# the idea is to have different plugins that can extend the existing
# stages real easy. If this stages approach turns out to be too limited
# (ie 1000s of stages in one file, not a good look) we may need to
# rethink this approach.

sub update_cache {
    my ($self, $ssh) = @_;
    $self->log($ssh, "running update_cache task ...");
    return;
}

 view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

    my @o_logs = $repo->run( log => '--pretty=oneline', 'origin/master');
    is(@o_logs, 2, 'Second commit push successful');
    }

# And on to testing the actual code...
sub update_foo {
    my $str = shift;
    open(my $foo, '>>', "$ld/foo");
    if ($str) {
        print $foo "$str\n";
        }

 view release on metacpan or  search on metacpan

lib/Git/MoreHooks/CheckCommitBase.pm  view on Meta::CPAN

    my %opts = ( 'old_commit' => ':0', 'new_commit' => undef, 'gerrit-opts' => undef );
    return _call_user_hook( $git, 'pre-commit', \%opts );
}

# This routine can act both as an update or a pre-receive hook.
sub update_callback {
    $log->tracef( 'Entering update_callback(%s)', ( join q{:}, @_ ) );
    my ($git) = @_;
    my %opts = ( 'old_commit' => ':0', 'new_commit' => 0, 'gerrit-opts' => undef );
    return _call_user_hook( $git, 'update', \%opts );
}

 view release on metacpan or  search on metacpan

lib/Git/PurePerl.pm  view on Meta::CPAN

        $ref = 'master' unless $ref;
        $self->update_ref( $ref, $object->sha1 );
    }
}

sub update_ref {
    my ( $self, $refname, $sha1 ) = @_;
    my $ref = file( $self->gitdir, 'refs', 'heads', $refname );
    $ref->parent->mkpath;
    my $ref_fh = $ref->openw;
    $ref_fh->print($sha1) || die "Error writing to $ref";

 view release on metacpan or  search on metacpan

lib/Git/Release.pm  view on Meta::CPAN

    my %tracking = map { split ':', $_ , 2 } @lines;
    return %tracking;
}

sub update_remote_refs {
    my $self = shift; 
    $self->repo->command_oneline(qw(remote update --prune));
}

sub _new_branch {

 view release on metacpan or  search on metacpan

lib/Git/ReleaseRepo/Command/update.pm  view on Meta::CPAN

                : "Updating all outdated:\n"
                    . join "\n", map { sprintf "\t\%s", $_ } sort @$args;
    $git->run( commit => ( @$args ), -m => $message );
};

sub update_submodule {
    my ( $self, $module, $branch ) = @_;
    $branch ||= "master";
    my $git = $self->git;
    if ( !$git->submodule->{ $module } ) {
        die "Cannot add $module: Submodule does not exist\n";

 view release on metacpan or  search on metacpan

t/20-simple.t  view on Meta::CPAN

my $home = cwd;

local $/ = chr rand 128;

# small helper sub
sub update_file {
    my ( $file, $content ) = @_;
    open my $fh, '>', $file or die "Can't open $file: $!";
    print {$fh} $content;
    close $fh;
}

 view release on metacpan or  search on metacpan

lib/Git/IndexInfo.pm  view on Meta::CPAN

		return ++$self->{nr};
	}
	undef;
}

sub update {
	my ($self, $mode, $hash, $path) = @_;
	if (print { $self->{gui} } $mode, ' ', $hash, "\t", $path, "\0") {
		return ++$self->{nr};
	}
	undef;

 view release on metacpan or  search on metacpan

scripts/generate-rss.pl  view on Meta::CPAN

 $gh->issues_and_comments(
    #Perl => 'perl5'
    $since,
    );

sub update_file( $fn, $content ) {
    my $needs_update = ! -e $fn;
    if( ! $needs_update ) {
        open my $old, '<', $fn
            or die "Couldn't read old content from '$fn': $!";
        binmode $old, ':utf8';

 view release on metacpan or  search on metacpan

lib/GitLab/API/v3.pm  view on Meta::CPAN

Sends a C<PUT> request to C</projects/:id/variables/:key> and returns the decoded/deserialized response body.

=cut

sub update_variable {
    my $self = shift;
    croak 'update_variable must be called with 2 to 3 arguments' if @_ < 2 or @_ > 3;
    croak 'The #1 argument ($id) to update_variable must be a scalar' if ref($_[0]) or (!defined $_[0]);
    croak 'The #2 argument ($key) to update_variable must be a scalar' if ref($_[1]) or (!defined $_[1]);
    croak 'The last argument (\%params) to update_variable must be a hash ref' if defined($_[2]) and ref($_[2]) ne 'HASH';

lib/GitLab/API/v3.pm  view on Meta::CPAN

Sends a C<PUT> request to C</runners/:id> and returns the decoded/deserialized response body.

=cut

sub update_runner {
    my $self = shift;
    croak 'update_runner must be called with 1 to 2 arguments' if @_ < 1 or @_ > 2;
    croak 'The #1 argument ($id) to update_runner must be a scalar' if ref($_[0]) or (!defined $_[0]);
    croak 'The last argument (\%params) to update_runner must be a hash ref' if defined($_[1]) and ref($_[1]) ne 'HASH';
    my $params = (@_ == 2) ? pop() : undef;

lib/GitLab/API/v3.pm  view on Meta::CPAN

Sends a C<PUT> request to C</application/settings> and returns the decoded/deserialized response body.

=cut

sub update_settings {
    my $self = shift;
    croak 'update_settings must be called with 0 to 1 arguments' if @_ < 0 or @_ > 1;
    croak 'The last argument (\%params) to update_settings must be a hash ref' if defined($_[0]) and ref($_[0]) ne 'HASH';
    my $params = (@_ == 1) ? pop() : undef;
    my $path = sprintf('/application/settings', (map { uri_escape($_) } @_));

lib/GitLab/API/v3.pm  view on Meta::CPAN

Sends a C<PUT> request to C</projects/:project_id/repository/tags/:tag_name/release>.

=cut

sub update_release {
    my $self = shift;
    croak 'update_release must be called with 2 to 3 arguments' if @_ < 2 or @_ > 3;
    croak 'The #1 argument ($project_id) to update_release must be a scalar' if ref($_[0]) or (!defined $_[0]);
    croak 'The #2 argument ($tag_name) to update_release must be a scalar' if ref($_[1]) or (!defined $_[1]);
    croak 'The last argument (\%params) to update_release must be a hash ref' if defined($_[2]) and ref($_[2]) ne 'HASH';

 view release on metacpan or  search on metacpan

lib/GitLab/API/v4.pm  view on Meta::CPAN

Sends a C<PUT> request to C<groups/:group_id/members/:user_id> and returns the decoded response content.

=cut

sub update_group_member {
    my $self = shift;
    croak 'update_group_member must be called with 2 to 3 arguments' if @_ < 2 or @_ > 3;
    croak 'The #1 argument ($group_id) to update_group_member must be a scalar' if ref($_[0]) or (!defined $_[0]);
    croak 'The #2 argument ($user_id) to update_group_member must be a scalar' if ref($_[1]) or (!defined $_[1]);
    croak 'The last argument (\%params) to update_group_member must be a hash ref' if defined($_[2]) and ref($_[2]) ne 'HASH';

lib/GitLab/API/v4.pm  view on Meta::CPAN

Sends a C<PUT> request to C<projects/:project_id/members/:user_id> and returns the decoded response content.

=cut

sub update_project_member {
    my $self = shift;
    croak 'update_project_member must be called with 2 to 3 arguments' if @_ < 2 or @_ > 3;
    croak 'The #1 argument ($project_id) to update_project_member must be a scalar' if ref($_[0]) or (!defined $_[0]);
    croak 'The #2 argument ($user_id) to update_project_member must be a scalar' if ref($_[1]) or (!defined $_[1]);
    croak 'The last argument (\%params) to update_project_member must be a hash ref' if defined($_[2]) and ref($_[2]) ne 'HASH';

lib/GitLab/API/v4.pm  view on Meta::CPAN

Sends a C<PUT> request to C<projects/:project_id/releases/:tag_name> and returns the decoded response content.

=cut

sub update_release {
    my $self = shift;
    croak 'update_release must be called with 2 to 3 arguments' if @_ < 2 or @_ > 3;
    croak 'The #1 argument ($project_id) to update_release must be a scalar' if ref($_[0]) or (!defined $_[0]);
    croak 'The #2 argument ($tag_name) to update_release must be a scalar' if ref($_[1]) or (!defined $_[1]);
    croak 'The last argument (\%params) to update_release must be a hash ref' if defined($_[2]) and ref($_[2]) ne 'HASH';

lib/GitLab/API/v4.pm  view on Meta::CPAN

Sends a C<PUT> request to C<projects/:project_id/releases/:tag_name/assets/links/:link_id> and returns the decoded response content.

=cut

sub update_release_link {
    my $self = shift;
    croak 'update_release_link must be called with 3 to 4 arguments' if @_ < 3 or @_ > 4;
    croak 'The #1 argument ($project_id) to update_release_link must be a scalar' if ref($_[0]) or (!defined $_[0]);
    croak 'The #2 argument ($tag_name) to update_release_link must be a scalar' if ref($_[1]) or (!defined $_[1]);
    croak 'The #3 argument ($link_id) to update_release_link must be a scalar' if ref($_[2]) or (!defined $_[2]);

lib/GitLab/API/v4.pm  view on Meta::CPAN

Sends a C<PUT> request to C<runners/:runner_id> and returns the decoded response content.

=cut

sub update_runner {
    my $self = shift;
    croak 'update_runner must be called with 1 to 2 arguments' if @_ < 1 or @_ > 2;
    croak 'The #1 argument ($runner_id) to update_runner must be a scalar' if ref($_[0]) or (!defined $_[0]);
    croak 'The last argument (\%params) to update_runner must be a hash ref' if defined($_[1]) and ref($_[1]) ne 'HASH';
    my $params = (@_ == 2) ? pop() : undef;

lib/GitLab/API/v4.pm  view on Meta::CPAN

Sends a C<PUT> request to C<application/settings> and returns the decoded response content.

=cut

sub update_settings {
    my $self = shift;
    croak 'update_settings must be called with 0 to 1 arguments' if @_ < 0 or @_ > 1;
    croak 'The last argument (\%params) to update_settings must be a hash ref' if defined($_[0]) and ref($_[0]) ne 'HASH';
    my $params = (@_ == 1) ? pop() : undef;
    my $options = {};

lib/GitLab/API/v4.pm  view on Meta::CPAN

Sends a C<PUT> request to C<projects/:project_id/repository/tags/:tag_name/release> and returns the decoded response content.

=cut

sub update_tag_release {
    my $self = shift;
    croak 'update_tag_release must be called with 2 to 3 arguments' if @_ < 2 or @_ > 3;
    croak 'The #1 argument ($project_id) to update_tag_release must be a scalar' if ref($_[0]) or (!defined $_[0]);
    croak 'The #2 argument ($tag_name) to update_tag_release must be a scalar' if ref($_[1]) or (!defined $_[1]);
    croak 'The last argument (\%params) to update_tag_release must be a hash ref' if defined($_[2]) and ref($_[2]) ne 'HASH';

 view release on metacpan or  search on metacpan

lib/Github/Import.pm  view on Meta::CPAN

        [ push => @args ],
        print_output => 1,
    );
}

sub update_config_for_pull {
    my $self = shift;
    my $remote = $self->remote;

    $self->run_git(
        [ config => 'branch.master.remote', $remote ],

 view release on metacpan or  search on metacpan

bin/perli11ndoc  view on Meta::CPAN

  $self->{result_buffer} = $result_buffer;
  $self->{result_view} = $result_view;
}

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

  $self->{suppress_gir_view_selection_changes} = TRUE;

  $self->{gir_model}->clear;

bin/perli11ndoc  view on Meta::CPAN

  my ($self, $path) = @_;
  my $name = $self->{parser}->format_node_name_by_path ($path);
  $self->{path_bar}->append ($name, $path); # indirectly calls update_results
}

sub update_results {
  my ($self, $path) = @_;
  $self->display_results ($self->{parser}->format_node_by_path ($path));

  # Show and select the correponding tree entry.
  $self->{gir_model}->foreach (sub {

bin/perli11ndoc  view on Meta::CPAN

sub set_update_func {
  my ($self, $func) = @_;
  $self->{update_func} = $func;
}

sub update_buttons {
  my ($self) = @_;
  $self->{back_button}->set_sensitive ($self->{path_label}->can_go_back);
  $self->{forward_button}->set_sensitive ($self->{path_label}->can_go_forward);
}

bin/perli11ndoc  view on Meta::CPAN

sub set_update_func {
  my ($self, $func) = @_;
  $self->{update_func} = $func;
}

sub update {
  my ($self) = @_;
  $self->set_markup ($self->_format_children);
  if (defined $self->{current_child} && defined $self->{update_func}) {
    my $child = $self->{children}->[$self->{current_child}];
    $self->{update_func}->($child->{name}, $child->{path});

 view release on metacpan or  search on metacpan

bin/perlmine.pl  view on Meta::CPAN

    set_timer_label();
    $image_but->set_image(Gtk2::Image->new_from_file($image{'smile'}));
    return FALSE;
}

sub update_label {
    $elapse_time++;
    set_timer_label();
    return TRUE;
}

 view release on metacpan or  search on metacpan

examples/v201809/basic_operations/update_ad_group.pl  view on Meta::CPAN

my $ad_group_id = "INSERT_AD_GROUP_ID_HERE";
# Set this to undef if you do not want to update the CPC bid.
my $cpc_bid_micro_amount = "INSERT_CPC_BID_MICRO_AMOUNT_HERE";

# Example main subroutine.
sub update_ad_group {
  my ($client, $ad_group_id, $cpc_bid_micro_amount) = @_;
  # Create an ad group with the specified ID.
  # Pause the ad group.
  my $ad_group = Google::Ads::AdWords::v201809::AdGroup->new({
    id     => $ad_group_id,

 view release on metacpan or  search on metacpan

examples/account_management/update_user_access.pl  view on Meta::CPAN

my $customer_id   = "INSERT_CUSTOMER_ID_HERE";
my $email_address = "INSERT_EMAIL_ADDRESS_HERE";
# See Google::Ads::GoogleAds::V25::Enums::AccessRoleEnum for optional values.
my $access_role = "INSERT_ACCESS_ROLE_HERE";

sub update_user_access {
  my ($api_client, $customer_id, $email_address, $access_role) = @_;

  my $user_id = get_user_access($api_client, $customer_id, $email_address);
  if (defined $user_id) {
    modify_user_access($api_client, $customer_id, $user_id, $access_role);

 view release on metacpan or  search on metacpan

lib/Google/Client/Files.pm  view on Meta::CPAN

        url => $url
    );
    return $json;
}

sub update_media {
    my ($self, $id, $params, $content) = @_;
    confess("No ID provided") unless ($id);
    unless ( $content && %$content ) {
        confess("No content provided to update");
    }

lib/Google/Client/Files.pm  view on Meta::CPAN

        content => encode_json($content)
    );
    return $json;
}

sub update {
    my ($self, $id, $params, $content) = @_;
    confess("No ID provided") unless ($id);
    unless ( $content && %$content ) {
        confess("No content provided to update");
    }

 view release on metacpan or  search on metacpan

lib/Google/Cloud/Bigquery/V2.pm  view on Meta::CPAN

    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Bigquery::V2::Routine::UpdateRoutineRequest';
    my $request = $request_class->new(%params);

lib/Google/Cloud/Bigquery/V2.pm  view on Meta::CPAN

    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Bigquery::V2::Table::UpdateOrPatchTableRequest';
    my $request = $request_class->new(%params);

lib/Google/Cloud/Bigquery/V2.pm  view on Meta::CPAN

    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Bigquery::V2::Job::UpdateJobRequest';
    my $request = $request_class->new(%params);

lib/Google/Cloud/Bigquery/V2.pm  view on Meta::CPAN

    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Bigquery::V2::Dataset::UpdateOrPatchDatasetRequest';
    my $request = $request_class->new(%params);

lib/Google/Cloud/Bigquery/V2.pm  view on Meta::CPAN

    });

    return $response;
}

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

    my $request_class = 'Google::Cloud::Bigquery::V2::RowAccessPolicy::UpdateRowAccessPolicyRequest';
    my $request = $request_class->new(%params);

 view release on metacpan or  search on metacpan

lib/Google/Devtools/Cloudbuild/V1/Cloudbuild.pm  view on Meta::CPAN

        request        => $req,
        response_class => 'Google::Protobuf::Empty::Empty',
    });
}

sub update_build_trigger {
    my ($self, $args) = @_;
    my $req = ref($args) eq 'HASH'
        ? Google::Devtools::Cloudbuild::V1::Cloudbuild::UpdateBuildTriggerRequest->new($args)
        : $args;
    return $self->_grpc_client->call({

lib/Google/Devtools/Cloudbuild/V1/Cloudbuild.pm  view on Meta::CPAN

        request        => $req,
        response_class => 'Google::Longrunning::Operations::Operation',
    });
}

sub update_worker_pool {
    my ($self, $args) = @_;
    my $req = ref($args) eq 'HASH'
        ? Google::Devtools::Cloudbuild::V1::Cloudbuild::UpdateWorkerPoolRequest->new($args)
        : $args;
    return $self->_grpc_client->call({

 view release on metacpan or  search on metacpan

lib/Google/Cloud/Orchestration/Airflow/Service/V1/Environments.pm  view on Meta::CPAN

        request        => $req,
        response_class => 'Google::Cloud::Orchestration::Airflow::Service::V1::Environments::ListEnvironmentsResponse',
    });
}

sub update_environment {
    my ($self, $args) = @_;
    my $req = ref($args) eq 'HASH'
        ? Google::Cloud::Orchestration::Airflow::Service::V1::Environments::UpdateEnvironmentRequest->new($args)
        : $args;
    return $self->_grpc_client->call({

lib/Google/Cloud/Orchestration/Airflow/Service/V1/Environments.pm  view on Meta::CPAN

        request        => $req,
        response_class => 'Google::Cloud::Orchestration::Airflow::Service::V1::Environments::ListUserWorkloadsSecretsResponse',
    });
}

sub update_user_workloads_secret {
    my ($self, $args) = @_;
    my $req = ref($args) eq 'HASH'
        ? Google::Cloud::Orchestration::Airflow::Service::V1::Environments::UpdateUserWorkloadsSecretRequest->new($args)
        : $args;
    return $self->_grpc_client->call({

lib/Google/Cloud/Orchestration/Airflow/Service/V1/Environments.pm  view on Meta::CPAN

        request        => $req,
        response_class => 'Google::Cloud::Orchestration::Airflow::Service::V1::Environments::ListUserWorkloadsConfigMapsResponse',
    });
}

sub update_user_workloads_config_map {
    my ($self, $args) = @_;
    my $req = ref($args) eq 'HASH'
        ? Google::Cloud::Orchestration::Airflow::Service::V1::Environments::UpdateUserWorkloadsConfigMapRequest->new($args)
        : $args;
    return $self->_grpc_client->call({

 view release on metacpan or  search on metacpan

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

    });

    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);

 view release on metacpan or  search on metacpan

lib/Google/Cloud/Dataflow/V1beta3/JobsV1beta3Client.pm  view on Meta::CPAN

    });

    return $response;
}

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

    my $request_class = 'Google::Dataflow::V1beta3::Jobs::UpdateJobRequest';
    my $request = eval { $request_class->new(\%params) } || eval { $request_class->new(%params) } || ($request_class->can('encode') ? $request_class->encode(\%params) : \%params);

 view release on metacpan or  search on metacpan

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

        request        => $req,
        response_class => 'Google::Longrunning::Operations::Operation',
    });
}

sub update_instance {
    my ($self, $args) = @_;
    my $req = ref($args) eq 'HASH'
        ? Google::Cloud::Datafusion::V1::Datafusion::UpdateInstanceRequest->new($args)
        : $args;
    return $self->_grpc_client->call({

 view release on metacpan or  search on metacpan

lib/Google/Cloud/Dataplex/V1/BusinessGlossary.pm  view on Meta::CPAN

        request        => $req,
        response_class => 'Google::Longrunning::Operations::Operation',
    });
}

sub update_glossary {
    my ($self, $args) = @_;
    my $req = ref($args) eq 'HASH'
        ? Google::Cloud::Dataplex::V1::BusinessGlossary::UpdateGlossaryRequest->new($args)
        : $args;
    return $self->_grpc_client->call({

lib/Google/Cloud/Dataplex/V1/BusinessGlossary.pm  view on Meta::CPAN

        request        => $req,
        response_class => 'Google::Cloud::Dataplex::V1::BusinessGlossary::GlossaryCategory',
    });
}

sub update_glossary_category {
    my ($self, $args) = @_;
    my $req = ref($args) eq 'HASH'
        ? Google::Cloud::Dataplex::V1::BusinessGlossary::UpdateGlossaryCategoryRequest->new($args)
        : $args;
    return $self->_grpc_client->call({

lib/Google/Cloud/Dataplex/V1/BusinessGlossary.pm  view on Meta::CPAN

        request        => $req,
        response_class => 'Google::Cloud::Dataplex::V1::BusinessGlossary::GlossaryTerm',
    });
}

sub update_glossary_term {
    my ($self, $args) = @_;
    my $req = ref($args) eq 'HASH'
        ? Google::Cloud::Dataplex::V1::BusinessGlossary::UpdateGlossaryTermRequest->new($args)
        : $args;
    return $self->_grpc_client->call({

 view release on metacpan or  search on metacpan

lib/Google/Cloud/Dataproc/V1/AutoscalingPolicies.pm  view on Meta::CPAN

        request        => $req,
        response_class => 'Google::Cloud::Dataproc::V1::AutoscalingPolicies::AutoscalingPolicy',
    });
}

sub update_autoscaling_policy {
    my ($self, $args) = @_;
    my $req = ref($args) eq 'HASH'
        ? Google::Cloud::Dataproc::V1::AutoscalingPolicies::UpdateAutoscalingPolicyRequest->new($args)
        : $args;
    return $self->_grpc_client->call({

 view release on metacpan or  search on metacpan

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

        );
        $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);

 view release on metacpan or  search on metacpan

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

        request        => $req,
        response_class => 'Google::Longrunning::Operations::Operation',
    });
}

sub update_service {
    my ($self, $args) = @_;
    my $req = ref($args) eq 'HASH'
        ? Google::Cloud::Metastore::V1::Metastore::UpdateServiceRequest->new($args)
        : $args;
    return $self->_grpc_client->call({

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

        request        => $req,
        response_class => 'Google::Longrunning::Operations::Operation',
    });
}

sub update_metadata_import {
    my ($self, $args) = @_;
    my $req = ref($args) eq 'HASH'
        ? Google::Cloud::Metastore::V1::Metastore::UpdateMetadataImportRequest->new($args)
        : $args;
    return $self->_grpc_client->call({

 view release on metacpan or  search on metacpan

lib/Google/Cloud/Networksecurity/V1/AddressGroup.pm  view on Meta::CPAN

        request        => $req,
        response_class => 'Google::Longrunning::Operations::Operation',
    });
}

sub update_address_group {
    my ($self, $args) = @_;
    my $req = ref($args) eq 'HASH'
        ? Google::Cloud::Networksecurity::V1::AddressGroup::UpdateAddressGroupRequest->new($args)
        : $args;
    return $self->_grpc_client->call({

lib/Google/Cloud/Networksecurity/V1/AddressGroup.pm  view on Meta::CPAN

        request        => $req,
        response_class => 'Google::Longrunning::Operations::Operation',
    });
}

sub update_address_group {
    my ($self, $args) = @_;
    my $req = ref($args) eq 'HASH'
        ? Google::Cloud::Networksecurity::V1::AddressGroup::UpdateAddressGroupRequest->new($args)
        : $args;
    return $self->_grpc_client->call({

 view release on metacpan or  search on metacpan

lib/Google/Cloud/Networkservices/V1/Dep.pm  view on Meta::CPAN

        request        => $req,
        response_class => 'Google::Longrunning::Operations::Operation',
    });
}

sub update_lb_traffic_extension {
    my ($self, $args) = @_;
    my $req = ref($args) eq 'HASH'
        ? Google::Cloud::Networkservices::V1::Dep::UpdateLbTrafficExtensionRequest->new($args)
        : $args;
    return $self->_grpc_client->call({

lib/Google/Cloud/Networkservices/V1/Dep.pm  view on Meta::CPAN

        request        => $req,
        response_class => 'Google::Longrunning::Operations::Operation',
    });
}

sub update_lb_route_extension {
    my ($self, $args) = @_;
    my $req = ref($args) eq 'HASH'
        ? Google::Cloud::Networkservices::V1::Dep::UpdateLbRouteExtensionRequest->new($args)
        : $args;
    return $self->_grpc_client->call({

lib/Google/Cloud/Networkservices/V1/Dep.pm  view on Meta::CPAN

        request        => $req,
        response_class => 'Google::Longrunning::Operations::Operation',
    });
}

sub update_lb_edge_extension {
    my ($self, $args) = @_;
    my $req = ref($args) eq 'HASH'
        ? Google::Cloud::Networkservices::V1::Dep::UpdateLbEdgeExtensionRequest->new($args)
        : $args;
    return $self->_grpc_client->call({

lib/Google/Cloud/Networkservices/V1/Dep.pm  view on Meta::CPAN

        request        => $req,
        response_class => 'Google::Longrunning::Operations::Operation',
    });
}

sub update_authz_extension {
    my ($self, $args) = @_;
    my $req = ref($args) eq 'HASH'
        ? Google::Cloud::Networkservices::V1::Dep::UpdateAuthzExtensionRequest->new($args)
        : $args;
    return $self->_grpc_client->call({

 view release on metacpan or  search on metacpan

lib/Google/Cloud/Security/Privateca/V1/Service.pm  view on Meta::CPAN

        request        => $req,
        response_class => 'Google::Cloud::Security::Privateca::V1::Resources::Certificate',
    });
}

sub update_certificate {
    my ($self, $args) = @_;
    my $req = ref($args) eq 'HASH'
        ? Google::Cloud::Security::Privateca::V1::Service::UpdateCertificateRequest->new($args)
        : $args;
    return $self->_grpc_client->call({

lib/Google/Cloud/Security/Privateca/V1/Service.pm  view on Meta::CPAN

        request        => $req,
        response_class => 'Google::Longrunning::Operations::Operation',
    });
}

sub update_certificate_authority {
    my ($self, $args) = @_;
    my $req = ref($args) eq 'HASH'
        ? Google::Cloud::Security::Privateca::V1::Service::UpdateCertificateAuthorityRequest->new($args)
        : $args;
    return $self->_grpc_client->call({

lib/Google/Cloud/Security/Privateca/V1/Service.pm  view on Meta::CPAN

        request        => $req,
        response_class => 'Google::Longrunning::Operations::Operation',
    });
}

sub update_ca_pool {
    my ($self, $args) = @_;
    my $req = ref($args) eq 'HASH'
        ? Google::Cloud::Security::Privateca::V1::Service::UpdateCaPoolRequest->new($args)
        : $args;
    return $self->_grpc_client->call({

lib/Google/Cloud/Security/Privateca/V1/Service.pm  view on Meta::CPAN

        request        => $req,
        response_class => 'Google::Cloud::Security::Privateca::V1::Service::ListCertificateRevocationListsResponse',
    });
}

sub update_certificate_revocation_list {
    my ($self, $args) = @_;
    my $req = ref($args) eq 'HASH'
        ? Google::Cloud::Security::Privateca::V1::Service::UpdateCertificateRevocationListRequest->new($args)
        : $args;
    return $self->_grpc_client->call({

lib/Google/Cloud/Security/Privateca/V1/Service.pm  view on Meta::CPAN

        request        => $req,
        response_class => 'Google::Cloud::Security::Privateca::V1::Service::ListCertificateTemplatesResponse',
    });
}

sub update_certificate_template {
    my ($self, $args) = @_;
    my $req = ref($args) eq 'HASH'
        ? Google::Cloud::Security::Privateca::V1::Service::UpdateCertificateTemplateRequest->new($args)
        : $args;
    return $self->_grpc_client->call({