view release on metacpan or search on metacpan
lib/Algorithm/KMeans.pm view on Meta::CPAN
}
$final_cluster_centers = $self->update_cluster_centers( $clusters );
return ($clusters, $final_cluster_centers);
}
sub update_cluster_centers_and_covariances_mahalanobis {
my $self = shift;
my @clusters = @{ shift @_ };
my @new_cluster_centers;
my @new_cluster_covariances;
# During clustering for a fixed K, should a cluster inadvertently become empty,
lib/Algorithm/KMeans.pm view on Meta::CPAN
}
# After each new assignment of the data points to the clusters on the basis of the
# current values for the cluster centers, we call the routine shown here for updating
# the values of the cluster centers.
sub update_cluster_centers {
my $self = shift;
my @clusters = @{ shift @_ };
my @new_cluster_centers;
# During clustering for a fixed K, should a cluster inadvertently become empty,
# steal a member from the largest cluster to hopefully spawn a new cluster:
view release on metacpan or search on metacpan
lib/Algorithm/SAT/Backtracking.pm view on Meta::CPAN
return $choice;
}
# ### update
# Copies the model, then sets `choice` = `value` in the model, and returns it.
sub update {
my ( $self, $copy, $choice, $value ) = @_;
$copy = dclone($copy);
$copy->{$choice} = $value;
return $copy;
view release on metacpan or search on metacpan
lib/Alice.pm view on Meta::CPAN
my $self = shift;
return if $self->no_streams;
$_->ping for grep {$_->is_xhr} @{$self->streams};
}
sub update_window {
my ($self, $stream, $window, $max, $min, $limit, $total, $cb) = @_;
my $step = 20;
if ($limit - $total < 20) {
$step = $limit - $total;
view release on metacpan or search on metacpan
#$orig->($build, @args);
return;
}
sub update_pkg_conf_path {
return if !$on_windows;
use Env qw /@PKG_CONFIG_PATH/;
say 'Modifying drive paths in PKG_CONFIG_PATH';
say $ENV{PKG_CONFIG_PATH};
# msys-ificate drive paths
view release on metacpan or search on metacpan
# get all the geos-config fields
\&set_runtime_props_from_config,
];
# needed for gcc-13
sub update_hilbert_encoder_h {
my $build = shift;
my @files
= File::Find::Rule->file()
->name( 'HilbertEncoder.h' )
}
);
}
}
sub update_geos_config {
my ($build) = @_;
$build->log ('updating geos-config to use dynamic base dir');
use File::Find::Rule;
my ($geos_config)
view release on metacpan or search on metacpan
use Config;
use Env qw/@PKG_CONFIG_PATH/;
use Text::ParseWords qw(shellwords);
use File::Spec;
sub update_pkg_conf_path {
eval {
require Alien::libjansson;
require Alien::libsnappy;
1;
} or do {
view release on metacpan or search on metacpan
$orig->($build, @args);
}
sub update_pkg_conf_path {
return;
return if !$on_windows;
# should be a before or around hook
use Env qw /@PKG_CONFIG_PATH/;
say 'Modifying drive paths in PKG_CONFIG_PATH';
while (not $response =~ /yes/) {
$response = <>;
}
}
sub update_cmake_lists_file {
my ($orig, $build, @args) = @_;
# only needed on windows for v9.0.0 or earlier
return $orig->($build, @args)
if $on_windows and versioncmp (get_proj_version(), '9.0.0') < 0;
view release on metacpan or search on metacpan
];
};
sub update_configure_freebsd {
my ($build) = @_;
return if not $^O =~ /bsd/;
$build->log ('Updating configure for FreeBSD');
view release on metacpan or search on metacpan
bin/linkRedir view on Meta::CPAN
# single redirect for a URL
my %redirect = ();
# space delimited set of entries with same target
my %direct = ();
sub updateMaps() {
my $inu = shift();
my $outu = shift();
my $direct_add = "";
# no duplicates
if ( defined($redirect{$inu}) &&
view release on metacpan or search on metacpan
lib/Alzabo/BackCompat.pm view on Meta::CPAN
[ 0.79, $Alzabo::VERSION,
\&add_table_attributes,
],
);
sub update_schema
{
my %p = validate( @_, { name => { type => SCALAR },
version => { type => SCALAR },
} );
view release on metacpan or search on metacpan
lib/Amazon/MWS/Uploader.pm view on Meta::CPAN
Check the order status on Amazon and update the row in the
amazon_mws_orders table.
=cut
sub update_amw_order_status {
my ($self, $order) = @_;
# first, check if it exists
return unless $order;
my $sth = $self->_exe_query($self->sqla->select('amazon_mws_orders',
'*',
view release on metacpan or search on metacpan
lib/AmberDB.pm view on Meta::CPAN
return \%statu;
}
# Replace the DB record with new data.
# ------------------------------------------------
sub update_id {
my ( $self, $tableid, $rid, @record ) = @_;
# Perform the checks.
$tableid or return;
lib/AmberDB.pm view on Meta::CPAN
}
# List record modify.
# Note: Bulk operations (insert_list, modify_list, delete_list) do NOT use transactions (_txn_log).
# ------------------------------------------------
sub update_list {
my ( $self, $tableid, @records ) = @_;
local $self->{_no_txn} = 1;
lib/AmberDB.pm view on Meta::CPAN
# $adb->update_field($table, $rid, block => "price", 1750)
# Supports updating repeating child items by 'id' or 'pos':
# $adb->update_field($table, $rid, id => 202, $new_item)
# $adb->update_field($table, $rid, pos => 0, $new_item)
# ------------------------------------------------
sub update_field {
my $self = shift;
my $tableid = shift;
my $rid = shift;
$tableid or return;
view release on metacpan or search on metacpan
lib/Ambrosia/DataProvider/BaseDriver.pm view on Meta::CPAN
sub insert
{
return $_[0];
}
sub update
{
return $_[0];
}
sub delete
view release on metacpan or search on metacpan
t/lib/NeuralNet/Layer.pm view on Meta::CPAN
}
return \@input_grad;
}
sub update {
my ($self, $lr) = @_;
my $w = weights $self;
my $b = biases $self;
my $wg = weight_grads $self;
my $bg = bias_grads $self;
view release on metacpan or search on metacpan
lib/Aniki.pm view on Meta::CPAN
my ($self, $table_name, $row) = @_;
$row = $self->filter->apply_trigger(insert => $table_name, $row);
return $self->filter->deflate_row($table_name, $row);
}
sub update {
my ($self, $table_name, $set, $where, $opt) = @_;
# migrate for ($self, $row, $set, $opt)
if (blessed $_[1] && $_[1]->isa('Aniki::Row')) {
my $row = $_[1];
lib/Aniki.pm view on Meta::CPAN
my ($sql, @bind) = $self->query_builder->update($table_name, $set, $where);
return $self->execute($sql, @bind)->rows;
}
sub update_and_fetch_row {
my ($self, $row, $set) = @_;
croak '(Aniki#update_and_fetch_row) condition must be a Aniki::Row object.'
unless blessed $row && $row->isa('Aniki::Row');
my $emulated_row_data = $self->_update_and_emulate_row_data($row, $set);
my $where = $self->_where_row_cond($row->table, $emulated_row_data);
return $self->select($row->table_name, $where, { limit => 1, suppress_result_objects => 1 })->[0];
}
sub update_and_emulate_row {
my ($self, $row, $set) = @_;
croak '(Aniki#update_and_emulate_row) condition must be a Aniki::Row object.' unless blessed $row && $row->isa('Aniki::Row');
my $emulated_row_data = $self->_update_and_emulate_row_data($row, $set);
return $emulated_row_data if $self->suppress_row_objects;
view release on metacpan or search on metacpan
lib/AnnoCPAN/DBI.pm view on Meta::CPAN
return 1;
}
return;
}
sub update {
my $self = shift;
for my $pv ($self->pod->podvers) {
$pv->flush_cache;
}
$self->SUPER::update(@_);
view release on metacpan or search on metacpan
lib/Antybrowser/SDK.pm view on Meta::CPAN
sub refresh_sync { my ($self, $pid) = @_; $self->_request('POST', '/api/sync/refresh', $pid ? {profileId => $pid} : {}) }
# Profiles
sub get_profiles { $_[0]->_request('GET', '/api/profiles') }
sub create_profile { $_[0]->_request('POST', '/api/profiles', $_[1]) }
sub update_profile { $_[0]->_request('PUT', "/api/profiles/$_[1]", $_[2]) }
sub delete_profile { $_[0]->_request('DELETE', "/api/profiles/$_[1]") }
sub start_profile { $_[0]->_request('POST', "/api/profiles/$_[1]/start") }
sub stop_profile { $_[0]->_request('POST', "/api/profiles/$_[1]/stop") }
sub duplicate_profile { my ($self, $id, $name) = @_; $self->_request('POST', "/api/profiles/$id/duplicate", $name ? {name => $name} : {}) }
lib/Antybrowser/SDK.pm view on Meta::CPAN
sub run_automation { $_[0]->_request('POST', "/api/automations/$_[1]/run", {profileId => $_[2]}) }
# Groups
sub get_groups { $_[0]->_request('GET', '/api/groups') }
sub create_group { $_[0]->_request('POST', '/api/groups', $_[1]) }
sub update_group { $_[0]->_request('PUT', "/api/groups/$_[1]", $_[2]) }
sub delete_group { $_[0]->_request('DELETE', "/api/groups/$_[1]") }
# Proxies
sub get_proxies { $_[0]->_request('GET', '/api/proxies') }
sub create_proxy { $_[0]->_request('POST', '/api/proxies', $_[1]) }
view release on metacpan or search on metacpan
lib/Antybrowser.pm view on Meta::CPAN
sub refresh_sync { my ($self, $pid) = @_; $self->_request('POST', '/api/sync/refresh', $pid ? {profileId => $pid} : {}) }
# Profiles
sub get_profiles { $_[0]->_request('GET', '/api/profiles') }
sub create_profile { $_[0]->_request('POST', '/api/profiles', $_[1]) }
sub update_profile { $_[0]->_request('PUT', "/api/profiles/$_[1]", $_[2]) }
sub delete_profile { $_[0]->_request('DELETE', "/api/profiles/$_[1]") }
sub start_profile { $_[0]->_request('POST', "/api/profiles/$_[1]/start") }
sub stop_profile { $_[0]->_request('POST', "/api/profiles/$_[1]/stop") }
sub duplicate_profile { my ($self, $id, $name) = @_; $self->_request('POST', "/api/profiles/$id/duplicate", $name ? {name => $name} : {}) }
lib/Antybrowser.pm view on Meta::CPAN
sub run_automation { $_[0]->_request('POST', "/api/automations/$_[1]/run", {profileId => $_[2]}) }
# Groups
sub get_groups { $_[0]->_request('GET', '/api/groups') }
sub create_group { $_[0]->_request('POST', '/api/groups', $_[1]) }
sub update_group { $_[0]->_request('PUT', "/api/groups/$_[1]", $_[2]) }
sub delete_group { $_[0]->_request('DELETE', "/api/groups/$_[1]") }
# Proxies
sub get_proxies { $_[0]->_request('GET', '/api/proxies') }
sub create_proxy { $_[0]->_request('POST', '/api/proxies', $_[1]) }
view release on metacpan or search on metacpan
lib/AnyData.pm view on Meta::CPAN
# return unless $rec;
# my @fields = $self->{parser}->read_fields($rec);
# return undef if scalar @fields == 1 and !defined $fields[0];
# return \@fields;
}
sub update_single_row {
my $self = shift;
my $oldrow = shift;
my $newvals = shift;
my @colnames = @{ $self->col_names };
my @newrow;
lib/AnyData.pm view on Meta::CPAN
unshift @newrow, $requested_cols;
$self->{storage}->seek(0,2);
$self->push_row( @newrow );
return \@newrow;
}
sub update_multiple_rows {
my $self = shift;
my $key = shift;
my $values = shift;
$self->seek_first_record;
my @rows_to_update;
view release on metacpan or search on metacpan
eg/f7progress view on Meta::CPAN
my %ID;
my $updater;
my @log;
sub updater {
undef $updater;
erase;
my @id = sort { $b->[1] <=> $a->[1] } values %ID;
view release on metacpan or search on metacpan
lib/AnyEvent/IRC/Client.pm view on Meta::CPAN
sub _was_me {
my ($self, $msg) = @_;
$self->lower_case (prefix_nick ($msg)) eq $self->lower_case ($self->nick ())
}
sub update_ident {
my ($self, $ident) = @_;
my ($n, $u, $h) = split_prefix ($ident);
my $old = $self->{idents}->{$self->lower_case ($n)};
$self->{idents}->{$self->lower_case ($n)} = $ident;
if ($old ne $ident) {
lib/AnyEvent/IRC/Client.pm view on Meta::CPAN
my $topic = $msg->{params}->[-1];
$self->event (channel_topic => $chan, $topic, $who);
}
sub update_ident_cb {
my ($self, $msg) = @_;
if (is_nick_prefix ($msg->{prefix})) {
$self->update_ident ($msg->{prefix});
}
}
sub update_ident_nick_change_cb {
my ($self, $old, $new) = @_;
my $oldid = $self->nick_ident ($old);
return unless defined $oldid;
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
$examples =~ s/\r\n/\n/g;
update_file( $example_file, $examples );
};
};
sub update_file {
my( $filename, $new_content ) = @_;
my $content;
if( -f $filename ) {
open my $fh, '<:raw:encoding(UTF-8)', $filename
or die "Couldn't read '$filename': $!";
view release on metacpan or search on metacpan
lib/AnyEvent/Lingr.pm view on Meta::CPAN
}
Scalar::Util::weaken($self);
}
sub update_room_info {
my ($self) = @_;
$self->_get_channels;
}
sub _get_channels {
view release on metacpan or search on metacpan
lib/AnyEvent/WebService/Tracks/Resource.pm view on Meta::CPAN
$cb->(undef, $headers->{'status'});
}
});
}
sub update {
my ( $self, $cb ) = @_;
unless(%{$self->{'_dirty'}}) {
$cb->($self);
return;
view release on metacpan or search on metacpan
lib/AnyEvent/XMPP/Client.pm view on Meta::CPAN
This method tries to connect all unconnected accounts.
=cut
sub update_connections {
my ($self) = @_;
Scalar::Util::weaken $self;
for (values %{$self->{accounts}}) {
view release on metacpan or search on metacpan
lib/AnyMQ/Trait/ZeroMQ.pm view on Meta::CPAN
my $ref = $cb;
return $ref;
}
# this controls what events we are subscribed to in ZMQ
sub update_topic_subscriptions {
my ($self) = @_;
my @topics = $self->subscription_topics;
# update list of topics we are subscribed to
view release on metacpan or search on metacpan
lib/AnyMongo/Collection.pm view on Meta::CPAN
}
return @$ids;
}
sub update {
my ($self, $query, $object, $opts) = @_;
# there used to be one option: upsert=0/1
# now there are two, there will probably be
# more in the future. So, to support old code,
view release on metacpan or search on metacpan
. "/640x480_$filename");
}
}
sub update_settings {
my ($r, $settings, $album_dir, $path_info) = @_;
my $current_path = "$album_dir/";
foreach my $next_dir (split(m|/|, $path_info)) {
$current_path .= "$next_dir/";
view release on metacpan or search on metacpan
$self->warn("->remove_filters_for($old_box) FAILED!");
}
}
}
sub update_auto_forward {
my ($self) = @_;
my $q = $self->{q};
$self->{user_manager}->auto_forward('low', $q->param('forward_low'));
$self->{user_manager}->auto_forward('medium', $q->param('forward_medium'));
view release on metacpan or search on metacpan
lib/Apache/BalancerManager/Member.pm view on Meta::CPAN
);
sub disable { $_[0]->status(0) }
sub enable { $_[0]->status(1) }
sub update {
my $self = shift;
my $uri = URI->new($self->_url);
my $form = {
w_status_D => ( $self->status ? 0 : 1 ),