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
_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
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;
view release on metacpan or search on metacpan
lib/Dancer2/Plugin/LogReport.pod view on Meta::CPAN
First, your module/model:
package MyApp::CD;
sub update {
my ($self, %values) = @_;
$values{title} or error "Please enter a title";
$values{description} or warning "No description entered";
}
view release on metacpan or search on metacpan
lib/Dancer2/Plugin/Pg/Core.pm view on Meta::CPAN
$self->_clean;
}
return $sth || 1;
}
sub update {
my ($self, %wheres) = @_;
my $sql = undef;
for(my $i=0; $i<scalar(@{$self->keys}); $i++){
unless($sql){
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
lib/Data/Conveyor/Ticket.pm view on Meta::CPAN
# direct effect on the ticket's rc and status.
#
# The ticket is passed to the payload method so it can pass it to the methods
# it calls; eventually the exception container will ask the ticket whether to
# ignore each exception it processes (cf. ignores_exception).
sub update_calculated_values {
my $self = shift;
$self->payload->update_transaction_stati($self);
$self->calculate_status; # calculates rc as well
}
view release on metacpan or search on metacpan
sub isdeleted {
my $self = shift;
$self->{' zap'}->[$self->cursor];
}
sub update {
my $self = shift;
my $fields = $self->{' fields'};
my @ary;
my $bind = $self->{' binding'};
####
view release on metacpan or search on metacpan
lib/Data/Downloader/Config.pm view on Meta::CPAN
Update the config
=cut
sub update {
my $self = shift;
my %args = @_;
$args{update_ok} = 1;
$self->init(%args);
}
view release on metacpan or search on metacpan
Fallback.pm view on Meta::CPAN
} else {
confess "unknown \$update_type: $update_type";
}
}
sub update_item {
my $self = shift;
if(exists $self->{update}{item}) {
$self->morph($self->{hash}{package});
$self->SET_ITEM;
}
}
sub update_group {
my $self = shift;
if( (defined $self->{update}{item}) && length $self->{update}{item}) {
$self->morph($self->{hash}{package});
$self->SET_GROUP;
}
view release on metacpan or search on metacpan
lib/Data/FormValidator/Constraints/HTTP.pm view on Meta::CPAN
package My::App::Controller::Foo;
use Data::FormValidator::Constraints::HTTP qw( POST );
sub update : Local {
my ($self, $c, $foo) = @_;
$foo = $c->model('Schema::Foo')->find( $foo );
$c->form(
required => [ qw( method name author ) ],
view release on metacpan or search on metacpan
lib/Data/Header/Fields.pm view on Meta::CPAN
my $field = $self->get_field($key, @extra_args);
return undef if not defined $field;
return $field->value;
}
sub update_values {
my $self = shift;
my $key = shift or croak 'key argument is mandatory';
my $value = shift;
my $key_cmp = $self->key_cmp;
view release on metacpan or search on metacpan
my ($monster, $input, $field) = @_;
return $input->account->info( join q{.}, @$hive_path );
};
}
sub update_hive {
my ($hive_path) = @_;
return sub {
my ($monster, $arg) = @_;
return if $arg->{source} eq 'hive';
view release on metacpan or search on metacpan
my ($monster, $input, $field) = @_;
return $input->account->info( join q{.}, @$hive_path );
};
}
sub update_hive {
my ($hive_path) = @_;
return sub {
my ($monster, $arg) = @_;
return if $arg->{source} eq 'hive';