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);
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;
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');
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';
view release on metacpan or search on metacpan
lib/Data/Mapper.pm view on Meta::CPAN
push @result, $self->map_data($name, $_) for @$data;
\@result;
}
sub update {
my ($self, $data) = @_;
my $result;
my $has_changes = $data->isa('Data::Mapper::Data');
return if $has_changes && not $data->is_changed;
view release on metacpan or search on metacpan
lib/Data/Model.pm view on Meta::CPAN
my($klass, $model) = $class =~ /^(.+)::([^:]+)$/;
return unless (ref($self) || $self) eq $klass;
return $self->get_schema($model);
}
sub update {
my $self = shift;
Carp::croak "The 'update' method can not be performed during a transaction." if $self->{active_transaction};
my $row = shift;
return $self->update_direct($row, @_) unless ref($row) && $row->isa('Data::Model::Row');
view release on metacpan or search on metacpan
lib/Data/MuForm.pm view on Meta::CPAN
sub in_setup { }
sub after_setup { }
sub after_build_fields { }
sub update_model {
my $self = shift;
}
sub munge_params {
view release on metacpan or search on metacpan
lib/Data/Nested/Multiele.pm view on Meta::CPAN
###############################################################################
# UPDATE_ELE METHOD
###############################################################################
sub update_ele {
my($self,$ele,$path,$val,$new,$ruleset) = @_;
if (! $$self{'file'}) {
$$self{'err'} = 'nmefil06';
$$self{'errmsg'} = 'No file set.';
view release on metacpan or search on metacpan
lib/Data/OFAC/SDN.pm view on Meta::CPAN
}
return $self;
}
sub updateDatabase {
my $self = shift;
my $lwp = LWP::UserAgent->new();
$lwp->timeout(10);
$lwp->env_proxy;
view release on metacpan or search on metacpan
t/Data_Object_Types_Keywords.t view on Meta::CPAN
sub does {
undef
}
sub create;
sub update;
sub delete;
package Test::Student;
use base 'Test::Person';
view release on metacpan or search on metacpan
lib/Data/ObjectDriver/BaseObject.pm view on Meta::CPAN
return Data::ObjectDriver::Iterator->new($caching_iter, sub { $iter->end });
}
}
sub remove { shift->_proxy( 'remove', @_ ) }
sub update { shift->_proxy( 'update', @_ ) }
sub insert { shift->_proxy( 'insert', @_ ) }
sub replace { shift->_proxy( 'replace', @_ ) }
sub fetch_data { shift->_proxy( 'fetch_data', @_ ) }
sub uncache_object { shift->_proxy( 'uncache_object', @_ ) }
view release on metacpan or search on metacpan
bin/VisRep.pl view on Meta::CPAN
update_section();
update_textarea();
}
sub update_textarea() {
my $nrows = $visrep->{ACTUAL_SEC}->size();
my $topwin = $visrep->{TOPWIN};
my $nactrows = @{$visrep->{AROWS}}+0;
my $cont;
my $workarea = $visrep->{WWORKAREA};
view release on metacpan or search on metacpan
lib/Data/SeaBASS.pm view on Meta::CPAN
Caching must be enabled to use C<update>, C<set>, or C<insert>.
=cut
sub update {
my $self = shift;
if ( !$self->{'options'}{'cache'} ) {
croak("Caching must be enabled to write.");
} elsif ( $self->{'dataidx'} == -1 ) {
croak("No rows read yet.");
view release on metacpan or search on metacpan
lib/Data/SearchEngine/ElasticSearch.pm view on Meta::CPAN
type => $data->{type},
id => $item->id
);
}
sub update {
my $self = shift;
$self->add(@_);
}
view release on metacpan or search on metacpan
t/lib/SearchEngineWee.pm view on Meta::CPAN
}
}
return 0;
}
sub update {
my ($self, $prod) = @_;
$self->set($prod->{name}, $prod);
}