view release on metacpan or search on metacpan
lib/CatalystX/CRUD/ModelAdapter/DBIC.pm view on Meta::CPAN
Calls update() on I<dbic_object>.
=cut
sub update {
my ( $self, $c, $object ) = @_;
$object->update;
}
=head2 delete( I<context>, I<dbic_object> )
view release on metacpan or search on metacpan
lib/CatalystX/ListFramework.pm view on Meta::CPAN
$c->stash->{kind} = $kind;
$c->stash->{id} = $id; # the update form adds this to the URL
$c->stash->{template} = 'detail.tt';
}
sub update :Local {
my ($self, $c, $kind, $id) = @_;
my $lf = CatalystX::ListFramework->new($kind, $c);
$lf->update_from_query({'me.id' => $id});
$c->res->redirect("/listandsearch/$kind");
}
lib/CatalystX/ListFramework.pm view on Meta::CPAN
$c->stash->{box_data} = $box_data;
return 1;
}
sub update_from_query { # Update a record. Probably called from an infobox screen
my ($self, $search) = @_;
my $c = $self->{c};
my $rs = $c->model($self->{formdef}->{model})->search($search, {}); # NB: no joins. We'll assume we're looking locally for an id
my $db_row_obj = $rs->first;
unless (ref $db_row_obj) { confess "No such object found"; }
view release on metacpan or search on metacpan
lib/Catalyst/ActionRole/RequestModel.pm view on Meta::CPAN
extends 'Catalyst::Controller';
sub root :Chained(/root) PathPart('account') CaptureArgs(0) { }
sub update :POST Chained('root') PathPart('') Args(0) Does(RequestModel) BodyModel(AccountRequest) {
my ($self, $c, $request_model) = @_;
## Do something with the $request_model
}
sub list :GET Chained('root') PathPart('') Args(0) Does(RequestModel) QueryModel(PagingModel) {
lib/Catalyst/ActionRole/RequestModel.pm view on Meta::CPAN
=head1 DESCRIPTION
Moves creating the request model into the action class execute phase. The following two actions are essentially
the same in effect:
sub update :POST Chained('root') PathPart('') Args(0) Does(RequestModel) BodyModel(AccountRequest) {
my ($self, $c, $request_model) = @_;
## Do something with the $request_model
}
sub update :POST Chained('root') PathPart('') Args(0) {
my ($self, $c) = @_;
my $request_model = $c->model('AccountRequest');
## Do something with the $request_model
}
lib/Catalyst/ActionRole/RequestModel.pm view on Meta::CPAN
extends 'Catalyst::Controller';
sub root :Chained(/root) PathPart('account') CaptureArgs(0) { }
sub update :POST Chained('root') PathPart('') Args(0) Does(RequestModel) BodyModel() {
my ($self, $c, $request_model) = @_;
## Do something with the $request_model
}
sub list :GET Chained('root') PathPart('') Args(0) Does(RequestModel) QueryModel() {
lib/Catalyst/ActionRole/RequestModel.pm view on Meta::CPAN
sub root :Chained(/root) PathPart('account') CaptureArgs(0) { }
## You can use either ~ or ~:: to indicate 'under the current namespace'.
sub update :POST Chained('root') PathPart('') Args(0) Does(RequestModel) BodyModel(~::RequestBody) {
my ($self, $c, $request_model) = @_;
## Do something with the $request_model
}
sub list :GET Chained('root') PathPart('') Args(0) Does(RequestModel) QueryModel(~RequestQuery) {
lib/Catalyst/ActionRole/RequestModel.pm view on Meta::CPAN
content type to an available request model and throw an L<CatalystX::RequestModel::Utils::InvalidContentType>
exception if none of the available models match.
Example of an action with more than one request model, which will be matched based on request content type.
sub update :POST Chained('root') PathPart('') Args(0) Does(RequestModel) BodyModel(AccountRequestForm) RequestModel(AccountRequestJSON) {
my ($self, $c, $request_model) = @_;
## Do something with the $request_model
}
Also, if more than one model matches, you'll get an instance of each matching model.
view release on metacpan or search on metacpan
lib/Catmandu/Store/AAT/Bag.pm view on Meta::CPAN
Catmandu::NotImplemented->throw(
message => 'Adding item to store not supported.'
);
}
sub update {
my ($self, $id, $data) = @_;
Catmandu::NotImplemented->throw(
message => 'Updating item in store not supported.'
);
}
view release on metacpan or search on metacpan
lib/Catmandu/Adlib/API.pm view on Meta::CPAN
Catmandu::NotImplemented->throw(
message => 'Adding items is not supported.'
);
}
sub update {
my ($self, $id, $data) = @_;
Catmandu::NotImplemented->throw(
message => 'Updating items is not supported.'
);
}
view release on metacpan or search on metacpan
lib/Catmandu/AlephX.pm view on Meta::CPAN
when you supply the argument 'marc', an xml document will be created for you,
and stored in the argument 'xml_full_req'. 'marc' must be an array of arrays.
When you already supplied 'xml_full_req', it will be overwritten.
=cut
sub update_doc {
my($self,%args)=@_;
my $doc_num = $args{doc_num} || $args{doc_number};
delete $args{$_} for qw(doc_number doc_num);
$args{doc_num} = $self->format_doc_num($doc_num);
lib/Catmandu/AlephX.pm view on Meta::CPAN
say STDERR join("\n",@{$u->errors});
}
=cut
sub update_item {
my($self,%args)=@_;
require Catmandu::AlephX::Op::UpdateItem;
$args{op} = Catmandu::AlephX::Op::UpdateItem->op();
my $res = $self->ua->request(\%args,"POST");
Catmandu::AlephX::Op::UpdateItem->parse($res->content_ref(),\%args);
view release on metacpan or search on metacpan
lib/Catmandu/CA/API.pm view on Meta::CPAN
lang => $self->lang
);
return $r->put(encode_json($data));
}
sub update {
my ($self, $id, $data) = @_;
my $r = Catmandu::CA::API::Request->new(
url => $self->url,
url_query => sprintf('service.php/item/%s/id/%s', $self->model, $id),
username => $self->username,
view release on metacpan or search on metacpan
lib/Catmandu/Store/FedoraCommons/DC.pm view on Meta::CPAN
my $perl = $self->deserialize($data);
{ _id => $pid , %$perl };
}
sub update {
my ($self,$obj) = @_;
my $pid = $obj->{_id};
return undef unless $pid;
view release on metacpan or search on metacpan
lib/Catmandu/Store/RKD/Bag.pm view on Meta::CPAN
Catmandu::NotImplemented->throw(
message => 'Adding item to store not supported.'
);
}
sub update {
my ($self, $id, $data) = @_;
Catmandu::NotImplemented->throw(
message => 'Updating item in store not supported.'
);
}
view release on metacpan or search on metacpan
lib/Catmandu/Store/Resolver/Bag.pm view on Meta::CPAN
} else {
$self->pid($response->{'data'}->{'persistentURIs'}->[0]);
}
}
sub update {
my ($self, $id, $data) = @_;
my $response = $self->api->put($id, $data);
if (defined($response->{'data'}->{'work_pid'})) {
$self->pid($response->{'data'}->{'work_pid'});
} else {
view release on metacpan or search on metacpan
lib/Catmandu/Store/AAT/Bag.pm view on Meta::CPAN
Catmandu::NotImplemented->throw(
message => 'Adding item to store not supported.'
);
}
sub update {
my ($self, $id, $data) = @_;
Catmandu::NotImplemented->throw(
message => 'Updating item in store not supported.'
);
}
view release on metacpan or search on metacpan
lib/Catmandu/Store/Datahub/API.pm view on Meta::CPAN
});
return undef;
}
}
sub update {
my ($self, $id, $data) = @_;
if (not defined $id) {
Catmandu::BadArg->throw(
'message' => "Record could not be updated. Missing 'id'."
view release on metacpan or search on metacpan
lib/Catmandu/Store/REST/Bag.pm view on Meta::CPAN
sub delete {
my ($self, $id) = @_;
return $self->api->delete($id);
}
sub update {
my ($self, $id, $data) = @_;
return $self->api->put($id, $data);
}
sub delete_all {
view release on metacpan or search on metacpan
lib/Catmandu/Store/RKD/Bag.pm view on Meta::CPAN
Catmandu::NotImplemented->throw(
message => 'Adding item to store not supported.'
);
}
sub update {
my ($self, $id, $data) = @_;
Catmandu::NotImplemented->throw(
message => 'Updating item in store not supported.'
);
}
view release on metacpan or search on metacpan
lib/Catmandu/Store/VIAF/Bag.pm view on Meta::CPAN
Catmandu::NotImplemented->throw(
message => 'Adding item to store not supported.'
);
}
sub update {
my ($self, $id, $data) = @_;
Catmandu::NotImplemented->throw(
message => 'Updating item in store not supported.'
);
}
view release on metacpan or search on metacpan
lib/Catmandu/Path/simple.pm view on Meta::CPAN
) . "return ${data_var};";
$self->_eval_sub($body, args => $args, captures => $captures);
}
sub updater {
my ($self, %opts) = @_;
my $path = $self->split_path;
my $data_var = $self->_generate_var;
my $captures = {};
my $args = [$data_var];
view release on metacpan or search on metacpan
lib/CellBIS/SQL/Abstract.pm view on Meta::CPAN
return ["INSERT INTO ${table_name}($field_col) VALUES $value_col",
@value_data];
}
sub update {
my $self = shift;
my $arg_len = scalar @_;
if ($arg_len > 2 || $arg_len >= 5) {
my $method_name = '_qUpdate_arg' . $arg_len;
view release on metacpan or search on metacpan
lib/Chandra/Game/Tetris/Engine.pm view on Meta::CPAN
$self->score(0);
$self->lines(0);
$self->level(1);
}
sub update_score {
my ($self, $cleared) = @_;
return unless $cleared;
my @points = (0, 100, 300, 500, 800);
my $pts = ($points[$cleared] // 800) * $self->level;
$self->score($self->score + $pts);
view release on metacpan or search on metacpan
lib/Chandra/Component.pm view on Meta::CPAN
delete $_comp_registry{$cid};
return $self;
}
sub update {
my ($self) = @_;
my $app = comp__app $self;
return $self unless $app && comp__mounted $self;
my $cid = $self->_ensure_cid;
lib/Chandra/Component.pm view on Meta::CPAN
}
# Update only a sub-section of the component by a stable CSS selector.
# The selector is relative to the component's root element.
# The $html should already have actions rewritten.
sub update_part {
my ($self, $sub_id, $html) = @_;
my $app = comp__app $self;
return $self unless $app && comp__mounted $self;
$html = $self->_rewrite_actions($html);
view release on metacpan or search on metacpan
lib/Chat/iFly.pm view on Meta::CPAN
Updates the iFly servers with all the configured settings you passed into the constructor of this object. This must be called when you first start using this module, and also each time that you make changes to your settings.
=cut
sub update_settings {
my ($self) = @_;
return $self->post('/z/', {
api_key => $self->api_key,
enable_chatroom => $self->enable_chatroom,
theme => $self->theme,
view release on metacpan or search on metacpan
lib/Chef/Knife/Cmd/Vault.pm view on Meta::CPAN
push @cmd, $values if $values;
push @cmd, @opts;
$self->run(@cmd);
}
sub update {
my ($self, $vault, $item, $values, %options) = @_;
my @opts = $self->handle_options(%options);
my @cmd = (qw/knife vault update/, $vault, $item);
push @cmd, $values if $values;
push @cmd, @opts;
view release on metacpan or search on metacpan
Examples/GDS2Tool/gds2tool view on Meta::CPAN
$G_viewWindow -> raise();
}
}
################################################################################
sub updateInfoText
{
my $append = shift;
my $text = shift;
if (Exists($G_infoWindow))
{
view release on metacpan or search on metacpan
t/autodbTestObject.pm view on Meta::CPAN
my @tables=@_? @_: @{$self->tables};
my $old_counts=$self->{old_counts} || ($self->_old_counts(@tables));
# $old_counts=norm_counts(map {$_=>$old_counts->{$_}} @tables);
$old_counts;
}
sub update_counts {
my($self,$new_counts)=@_;
my $old_counts=$self->old_counts;
my @tables=keys %$new_counts;
@$old_counts{@tables}=@$new_counts{@tables};
}
view release on metacpan or search on metacpan
lib/Class/Classless/DBI.pm view on Meta::CPAN
DBIx::Interpolate::attr(Columns=>{})
);
}
sub update_table {
my($self,$next,$vars) = @_;
return $self->dbx->do('
UPDATE', $self->table, 'SET', $vars->{values}, '
view release on metacpan or search on metacpan
lib/Class/DBI/Cacheable.pm view on Meta::CPAN
If changes are made to the database via direct SQL calls the cache will be out-of-sync
with the real database.
=cut
sub update {
my $self = shift;
my $key = $self->getCacheKey;
my $result = $self->SUPER::update(@_);
$self->setCache($key);
return $result;
view release on metacpan or search on metacpan
lib/Class/DBI/FormBuilder.pm view on Meta::CPAN
If called on a class, will first retrieve the relevant object (via C<retrieve_from_form>).
=cut
sub update_from_form
{
my ( $proto, $form ) = @_;
my $them = ref( $proto ) ? $proto : $proto->retrieve_from_form( $form );
lib/Class/DBI/FormBuilder.pm view on Meta::CPAN
If none exists (or if no values for primary keys are supplied), a new object is created.
=cut
sub update_or_create_from_form
{
my ( $them, $form ) = @_;
Carp::croak "update_or_create_from_form can only be called as a class method" if ref $them;
view release on metacpan or search on metacpan
lib/Class/DBI/FromCGI.pm view on Meta::CPAN
$class->__untaint_types(\%types);
}
sub cgi_update_errors { %{ shift->{_cgi_update_error} || {} } }
sub update_from_cgi {
my $self = shift;
die "update_from_cgi cannot be called as a class method" unless ref $self;
__PACKAGE__->_run_update($self, @_);
}
view release on metacpan or search on metacpan
FromForm.pm view on Meta::CPAN
Update object.
=cut
sub update_from_form {
my $self = shift;
die "update_from_form cannot be called as a class method" unless ref $self;
__PACKAGE__->_run_update( $self, @_ );
}
view release on metacpan or search on metacpan
lib/Class/DBI/Frozen/301.pm view on Meta::CPAN
sub _column_placeholder {
my ($self, $column) = @_;
return $self->find_column($column)->placeholder;
}
sub update {
my $self = shift;
my $class = ref($self)
or return $self->_croak("Can't call update as a class method");
$self->call_trigger('before_update');
view release on metacpan or search on metacpan
lib/Class/DBI.pm view on Meta::CPAN
sub _column_placeholder {
my ($self, $column) = @_;
return $self->find_column($column)->placeholder;
}
sub update {
my $self = shift;
my $class = ref($self)
or return $self->_croak("Can't call update as a class method");
$self->call_trigger('before_update');