view release on metacpan or search on metacpan
This method updates an existing entry in a database table. See
_prepare_sql for the named parameters used.
=cut
sub update {
my $self = shift;
my %params = @_;
my $sql = $self->_prepare_sql ('update', \%params)
|| return undef;
view release on metacpan or search on metacpan
lib/DBIx/Wrapper.pm view on Meta::CPAN
This is so that the order of the parameters in the C<WHERE> clause
are kept in the same order. This is required to use the correct
multi field indexes in some databases.
=cut
sub update {
my ($self, $table, $keys, $data) = @_;
if (defined($keys)) {
unless ((UNIVERSAL::isa($keys, 'HASH') or UNIVERSAL::isa($keys, 'ARRAY'))) {
return $self->setErr(-1, 'DBIx::Wrapper: No keys passed to update()');
view release on metacpan or search on metacpan
lib/DBR/Config/Field.pm view on Meta::CPAN
}
### Admin functions
sub update_translator{
my $self = shift;
my $transname = shift;
$self->[O_session]->is_admin or return $self->_error('Cannot update translator in non-admin mode');
lib/DBR/Config/Field.pm view on Meta::CPAN
$FIELDS_BY_ID{ $self->[O_field_id] }->[C_trans_id] = $new_trans->{id}; # update local copy
return 1;
}
sub update_regex{
my $self = shift;
my $regex = shift;
$self->[O_session]->is_admin or return $self->_error('Cannot update translator in non-admin mode');
lib/DBR/Config/Field.pm view on Meta::CPAN
_gen_valcheck($fieldref); # Update value test sub
return 1;
}
sub update_default{
my $self = shift;
my $value = shift;
$self->[O_session]->is_admin or return $self->_error('Cannot update translator in non-admin mode');
view release on metacpan or search on metacpan
DBX/Recordset.pm view on Meta::CPAN
my ($self) = @_;
return !$self->{eof};
}
sub update
{
my ($self) = @_;
return unless $self->{dirty};
my %changed = %{$self->{changed}};
view release on metacpan or search on metacpan
lib/DB_File/DB_Database.pm view on Meta::CPAN
my %data = $self->check_field_names_hash(@_);
$self->set_record($id, map { $data{$_} } $self->field_names );
}
# ###############################################################################
# Write record, fields specified as hash, unspecified will be unchanged
sub update_record_hash {
my ($self, $id) = ( shift, shift );
my %olddata = $self->get_record_hash($id);
return unless %olddata;
$self->set_record_hash($id, %olddata, @_);
}
view release on metacpan or search on metacpan
DBomb/Base.pm view on Meta::CPAN
else{
$self->_dbo_insert_static(@_);
}
}
sub update
{
my $self = shift;
if (ref $self){
$self->_dbo_update(@_);
}
view release on metacpan or search on metacpan
lib/DNS/EasyDNS.pm view on Meta::CPAN
The function returns C<TRUE> of success. On failure it returns C<FALSE> and
sets C<$@>.
=cut
sub update {
my ($obj,%args) = @_;
my %get;
while (my ($k,$v) = each %args) {
if ( $k eq "username" ) { $obj->{"username"} = $v }
view release on metacpan or search on metacpan
lib/DNS/Hetzner/API/PrimaryServers.pm view on Meta::CPAN
sub get ($self, %params) {
return $self->_do( 'GetPrimaryServer', \%params, '/:PrimaryServerID', { type => 'get' } );
}
sub update ($self, %params) {
return $self->_do( 'UpdatePrimaryServer', \%params, '/:PrimaryServerID', { type => 'put' } );
}
1;
view release on metacpan or search on metacpan
lib/DNS/NIOS.pm view on Meta::CPAN
return $self->__request( 'POST', $args{path},
( payload => $args{payload}, params => $args{params} ) );
}
sub update {
my ( $self, %args ) = @_;
defined( $args{$_} )
or croak("$_ is required!")
for qw(path payload);
view release on metacpan or search on metacpan
lib/DNS/PunyDNS.pm view on Meta::CPAN
$self->{'password'} = $args[0]->{'password'} || die "No password provided";
return $self;
}
sub update_dns {
my ( $self, $domain, $ip, $record_type, $old_record_type ) = @_;
die "You must provide a domain" if !$domain;
die "You must provide an IP address" if !$ip;
my %args = (
view release on metacpan or search on metacpan
lib/DNS/WorldWideDns.pm view on Meta::CPAN
A hash reference identical to the one returned by getDomain().
=cut
sub updateDomain {
my ($self, $domain, $params) = @_;
# validate inputs
unless (defined $domain) {
MissingParam->throw(error=>'Need a domain.');
view release on metacpan or search on metacpan
lib/DNS/ZoneEdit.pm view on Meta::CPAN
Returns C<TRUE> on success. On failure it returns C<FALSE> and
sets C<$@>.
=cut
sub update {
my ($self,%args) = @_;
croak "update(): Argument 'username' is required"
unless defined $args{"username"};
view release on metacpan or search on metacpan
ZoneFile.pm view on Meta::CPAN
}
#updateSerial
# This function will update the serial number in the zone file loaded.
sub updateSerial
{
my $self=shift;
my $snum;
view release on metacpan or search on metacpan
sub emit {
if ($opt{0}) { push @script, splice @batch }
else { push @script, join '', splice @batch }
}
sub update {
my ($addel,$owner,$rrs) = @_;
push @batch, map "update $addel $owner $_", sort @$rrs;
}
for my $owner (keys %del) {
update 'delete', $owner, delete $del{$owner};
view release on metacpan or search on metacpan
lib/DR/Tarantool/AsyncClient.pm view on Meta::CPAN
=back
=cut
sub update {
my $self = shift;
my $space = shift;
my $key = shift;
my $op = shift;
$self->_llc->_check_cb( my $cb = pop );
view release on metacpan or search on metacpan
lib/DR/Tnt/Proto.pm view on Meta::CPAN
# HACK
_call_lua($sync, $schema_id, "box.space.$space:delete", $key);
}
sub update($$$$$) {
my ($sync, $schema_id, $space, $key, $ops) = @_;
croak 'Oplist must be Arrayref' unless 'ARRAY' eq ref $ops;
$key = [ $key ] unless ref $key;
croak "Cant convert HashRef to key" if 'HASH' eq ref $key;
view release on metacpan or search on metacpan
lib/DSP/LinPred.pm view on Meta::CPAN
}
# update only
# x should be array reference
sub update{
my $self = shift;
my $x = shift;
my $h_length = $self->h_length;
my $h = $self->h;
my $x_stack = $self->x_stack;
view release on metacpan or search on metacpan
lib/DSP/LinPred_XS.pm view on Meta::CPAN
}
# update only
# x should be array reference
sub update{
my $self = shift;
my $x = shift;
my $h_length = $self->h_length;
my $h = $self->h;
my $x_stack = $self->x_stack;
view release on metacpan or search on metacpan
lib/DTL/Fast/Tag/Ifchanged.pm view on Meta::CPAN
}
return $result;
}
sub update_preserved
{
my $self = shift;
my $context = shift;
$self->{preserved} = [ ];
view release on metacpan or search on metacpan
lib/DVB/Epg.pm view on Meta::CPAN
Return 0 if sections are already uptodate.
Return undef on error;
=cut
sub updateEit {
my $self = shift;
my $pid = shift;
my $dbh = $self->{dbh};
my $updated = 0;
lib/DVB/Epg.pm view on Meta::CPAN
Return 0 if sections are already uptodate.
Return 1 after updating sections.
=cut
sub updateEitPresent {
my $self = shift;
my $rule = shift;
my $forced = shift // 0;
my $dbh = $self->{dbh};
lib/DVB/Epg.pm view on Meta::CPAN
$rule is reference to hash containing keys:
pid, service_id, original_network_id, transport_stream_id, service_id, maxsegments, actual
=cut
sub updateEitSchedule {
my $self = shift;
my $rule = shift;
my $dbh = $self->{dbh};
my $num_subtable = int( ( $rule->{maxsegments} - 1 ) / 32 );
view release on metacpan or search on metacpan
lib/Dackup/Target/CloudFiles.pm view on Meta::CPAN
. $self->container->name . '/'
. $self->prefix
. $entry->key;
}
sub update {
my ( $self, $source, $entry ) = @_;
my $container = $self->container;
my $prefix = $self->prefix;
my $source_type = ref($source);
my $object = $self->object($entry);
view release on metacpan or search on metacpan
lib/Daemonise/Plugin/JobQueue.pm view on Meta::CPAN
return;
}
sub update_job {
my ($self, $msg, $status) = @_;
unless ((ref($msg) eq 'HASH')
and (exists $msg->{meta} and exists $msg->{meta}->{id}))
{
view release on metacpan or search on metacpan
lib/Daizu/File.pm view on Meta::CPAN
Doesn't return anything.
=cut
sub update_loaded_article_in_db
{
my ($self) = @_;
return unless $self->{article};
return transactionally($self->{db}, \&_update_loaded_article_in_db_txn,
$self);
lib/Daizu/File.pm view on Meta::CPAN
TODO - update docs about return value
=cut
sub update_urls_in_db
{
my ($self, $dup_urls) = @_;
return transactionally($self->{db}, \&_update_urls_in_db_txn, $self,
$dup_urls);
}
view release on metacpan or search on metacpan
lib/Daje/Database/Model/Super/Common/Base.pm view on Meta::CPAN
if $primary_key and $primary_key->rows > 0;
$result->{result} = 1;
return $result;
}
sub update($self, $table, $data, $keys) {
my $result->{result} = 0;
$data = $self->update_defaults($data);
$self->db->update($table, $data, $keys);
$result->{result} = 1;
return $result;
view release on metacpan or search on metacpan
lib/Daje/Generate/Templates/Perl.pm view on Meta::CPAN
};
return $result;
}
sub update($self, $table, $data, $keys) {
my $result->{result} = 1;
try {
$self->db->update($table, $data, $keys);
} catch($e) {
$result->{error} = $e;
lib/Daje/Generate/Templates/Perl.pm view on Meta::CPAN
my $result = $self->insert($self->table_name, $data, $self->primary_key_name);
return $result;
}
@@ update_data
sub update_<<table_name>>($self, $data, $keys) {
my $result = $self->update($self->table_name, $data, $keys);
return $result;
}
@@ view_list_interface
view release on metacpan or search on metacpan
lib/Daje/Database/Model/Super/AuthoritiesFunction.pm view on Meta::CPAN
$self->table_name, $data, $self->primary_key_name
);
return $result;
}
sub update($self, $data) {
return $self->SUPER::update
(
$self->table_name, $data,
{
$self->primary_key_name() => $data->{$self->primary_key_name()}
view release on metacpan or search on metacpan
lib/Daje/Database/Model/Super/CompaniesCompanies.pm view on Meta::CPAN
$self->table_name, $data, $self->primary_key_name
);
return $result;
}
sub update($self, $data) {
return $self->SUPER::update
(
$self->table_name, $data,
{
$self->primary_key_name() => $data->{$self->primary_key_name()}
view release on metacpan or search on metacpan
lib/Daje/Database/Model/Super/KanbanAssignees.pm view on Meta::CPAN
$self->table_name, $data, $self->primary_key_name
);
return $result;
}
sub update($self, $data) {
return $self->SUPER::update
(
$self->table_name, $data,
{
$self->primary_key_name() => $data->{$self->primary_key_name()}
view release on metacpan or search on metacpan
lib/Daje/Database/Model/Super/LanguagesLan.pm view on Meta::CPAN
$self->table_name, $data, $self->primary_key_name
);
return $result;
}
sub update($self, $data) {
return $self->SUPER::update
(
$self->table_name, $data,
{
$self->primary_key_name() => $data->{$self->primary_key_name()}
view release on metacpan or search on metacpan
lib/Daje/Database/Model/Super/MailAttachements.pm view on Meta::CPAN
$self->table_name, $data, $self->primary_key_name
);
return $result;
}
sub update($self, $data) {
return $self->SUPER::update
(
$self->table_name, $data,
{
$self->primary_key_name() => $data->{$self->primary_key_name()}