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({
view release on metacpan or search on metacpan
lib/Google/Pubsub/V1/Pubsub.pm view on Meta::CPAN
request => $req,
response_class => 'Google::Pubsub::V1::Pubsub::Topic',
});
}
sub update_topic {
my ($self, $args) = @_;
my $req = ref($args) eq 'HASH'
? Google::Pubsub::V1::Pubsub::UpdateTopicRequest->new($args)
: $args;
return $self->_grpc_client->call({
lib/Google/Pubsub/V1/Pubsub.pm view on Meta::CPAN
request => $req,
response_class => 'Google::Pubsub::V1::Pubsub::Subscription',
});
}
sub update_subscription {
my ($self, $args) = @_;
my $req = ref($args) eq 'HASH'
? Google::Pubsub::V1::Pubsub::UpdateSubscriptionRequest->new($args)
: $args;
return $self->_grpc_client->call({
lib/Google/Pubsub/V1/Pubsub.pm view on Meta::CPAN
request => $req,
response_class => 'Google::Pubsub::V1::Pubsub::Snapshot',
});
}
sub update_snapshot {
my ($self, $args) = @_;
my $req = ref($args) eq 'HASH'
? Google::Pubsub::V1::Pubsub::UpdateSnapshotRequest->new($args)
: $args;
return $self->_grpc_client->call({
view release on metacpan or search on metacpan
lib/Google/Cloud/Secretmanager/V1/Service.pm view on Meta::CPAN
request => $req,
response_class => 'Google::Cloud::Secretmanager::V1::Resources::Secret',
});
}
sub update_secret {
my ($self, $args) = @_;
my $req = ref($args) eq 'HASH'
? Google::Cloud::Secretmanager::V1::Service::UpdateSecretRequest->new($args)
: $args;
return $self->_grpc_client->call({
view release on metacpan or search on metacpan
lib/Google/Cloud/Sql/V1/CloudSqlBackups.pm view on Meta::CPAN
request => $req,
response_class => 'Google::Cloud::Sql::V1::CloudSqlBackups::ListBackupsResponse',
});
}
sub update_backup {
my ($self, $args) = @_;
my $req = ref($args) eq 'HASH'
? Google::Cloud::Sql::V1::CloudSqlBackups::UpdateBackupRequest->new($args)
: $args;
return $self->_grpc_client->call({
view release on metacpan or search on metacpan
lib/Google/Storage/V2/Storage.pm view on Meta::CPAN
request => $req,
response_class => 'Google::Iam::V1::IamPolicy::TestIamPermissionsResponse',
});
}
sub update_bucket {
my ($self, $args) = @_;
my $req = ref($args) eq 'HASH'
? Google::Storage::V2::Storage::UpdateBucketRequest->new($args)
: $args;
return $self->_grpc_client->call({
lib/Google/Storage/V2/Storage.pm view on Meta::CPAN
request => $req,
response_class => 'Google::Storage::V2::Storage::BidiReadObjectResponse',
});
}
sub update_object {
my ($self, $args) = @_;
my $req = ref($args) eq 'HASH'
? Google::Storage::V2::Storage::UpdateObjectRequest->new($args)
: $args;
return $self->_grpc_client->call({
view release on metacpan or search on metacpan
samples/google.pm view on Meta::CPAN
}
return @out ;
}
sub update {
my $self = shift ;
$self = $self->db unless ref $self ;
my $token = shift or return warn 'requires token' ;
my @changes = $self->about( $token ) ;
view release on metacpan or search on metacpan
lib/Google/RestApi/CalendarApi3/Acl.pm view on Meta::CPAN
$params{fields} = $p->{fields} if defined $p->{fields};
return $self->api(params => \%params);
}
sub update {
my $self = shift;
state $check = signature(
bless => !!0,
named => [
role => Str,
view release on metacpan or search on metacpan
lib/Graph/Chart.pm view on Meta::CPAN
$self->{ img } = $png_out;
return $self->{ img };
}
###########################################################################
sub update
{
my $self = shift;
my $object = shift;
# carp Dumper($self);
my $image_gd = GD::Image->new( $self->{img});
view release on metacpan or search on metacpan
t/04_dijkstra.t view on Meta::CPAN
is_deeply([$g->dijkstra("B", "X")], [], "returns empty list for unknown nodes pt. 1");
is_deeply([$g->dijkstra("X", "B")], [], "returns empty list for unknown nodes pt. 2");
# test usage of a different queue module - here: dummy module that returns nothing
# and will therefore cause failure to find a path
{ package NullQueue; sub insert { } sub update { } sub pop { undef; } sub delete { } }
$g->{_queue_maker} = sub { bless({}, "NullQueue"); };
is_deeply([$g->dijkstra("A", "B")], [], "can use different queue module");
# here: actual module, should return same result now.
SKIP: {
view release on metacpan or search on metacpan
examples/old_examples/graphics/polyTexture.pl view on Meta::CPAN
);
$iren->Initialize;
$MW->withdraw;
# Update the scalars in the structured points with the probe's output
#
sub updateStructuredPoints
{
$structuredPoints->GetPointData->SetScalars($probe->GetOutput->GetPointData->GetScalars);
}
# Transform the probe and resample
#
view release on metacpan or search on metacpan
lib/Graphviz/DSL/Component.pm view on Meta::CPAN
package Graphviz::DSL::Component;
use strict;
use warnings;
sub update_attributes {
my ($self, $attrs) = @_;
OUTER:
for my $attr (@{$attrs}) {
my ($key, $val) = @{$attr};
view release on metacpan or search on metacpan
lib/Group/Git/Cmd/Pull.pm view on Meta::CPAN
'upload-pack=s',
'progress',
]
);
sub update_start { shift->pull_start($_[0], 'update') }
sub pull_start {
$opt->process;
return;
}
sub update { shift->pull($_[0], 'update') }
sub pull {
my ($self, $name, $type) = @_;
$type ||= 'pull';
my $repo = $self->repos->{$name};