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()}
view release on metacpan or search on metacpan
_Deparsed_XSubs.pm view on Meta::CPAN
sub sqlite_trace;
sub sqlite_txn_state;
sub sqlite_update_hook;
sub table_column_metadata;
sub txn_state;
sub update_hook;
}
package DBD::SQLite::dr {
sub dbixs_revision;
sub discon_all_;
sub disconnect_all;
view release on metacpan or search on metacpan
lib/Daje/Database/Model/Super/UsersDocumentation.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
t/unit/lib/Dancer/Plugin/DynamicConfig/basic.t view on Meta::CPAN
{ k2a => "K2B" }
]
}
);
sub update_dynamic_config {
my ($key, $val) = @_;
my $plugins = Dancer::Config::setting('plugins');
$plugins->{DynamicConfig}{$key} = $val;
set plugins => $plugins;
view release on metacpan or search on metacpan
example/lib/Example/API/MockDB.pm view on Meta::CPAN
=for restish POST@person/:id update_person
=cut
sub update_person {
my $self = shift;
my %data = %{ $_[0] };
my $id = delete($data{id});
if (!$id) {
view release on metacpan or search on metacpan
my $class = 'Dancer::Plugin::Swig';
use_ok $class;
sub update_swig {
my ($key, $val) = @_;
my $plugins = Dancer::Config::setting('plugins');
$plugins->{Swig}{$key} = $val;
set plugins => $plugins;
view release on metacpan or search on metacpan
lib/Dancer2/Plugin/Auth/Extensible.pm view on Meta::CPAN
croak "Cannot use require_role since roles are disabled by disable_roles setting"
if $plugin->disable_roles;
return $plugin->_build_wrapper( @_, 'single' );
}
sub update_current_user {
my ( $plugin, %update ) = @_;
my $session = $plugin->app->session;
if ( my $username = $session->read('logged_in_user') ) {
my $realm = $session->read('logged_in_user_realm');
lib/Dancer2/Plugin/Auth/Extensible.pm view on Meta::CPAN
$plugin->app->log( debug =>
"Could not update current user as no user currently logged in" );
}
}
sub update_user {
my ( $plugin, $username, %update ) = @_;
croak "Realm must be specified when more than one realm configured"
if !$update{realm} && $plugin->realm_count > 1;