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

    };

    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

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

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

t/basic.t  view on Meta::CPAN

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/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

Direct.pm  view on Meta::CPAN

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

eg/eg.pl  view on Meta::CPAN

    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

eg/eg.pl  view on Meta::CPAN

    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');

lib/Data/Model.pm  view on Meta::CPAN

#  $model->update_direct( model_name => 'key', +{ querys }, +{ update columns } );
#  $model->update_direct( model_name => [qw/ key1 key2 /], +{ querys }, +{ update columns } );
#  $model->update_direct( model_name => +{ querys }, +{ update columns } );
# direct_update get しないで直接 updateする where の組み立ては get/delete と同じ
sub update_direct {
    my $self   = shift;
    Carp::croak "The 'update_direct' method can not be performed during a transaction." if $self->{active_transaction};
    my $model  = shift;

    my $schema = $self->get_schema($model);

 view release on metacpan or  search on metacpan

lib/Data/MuForm/Role/Model/DBIC.pm  view on Meta::CPAN

    my $self = shift;
    $self->model(undef);
    $self->model_id(undef);
}

sub update_model {
    my $self   = shift;
    my $model   = $self->model;
    my $source = $self->source;

    my %update_params = (

 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};

bin/VisRep.pl  view on Meta::CPAN

	#update code area
	$visrep->{WCODEAREA}->delete(0.1, 'end');
	$visrep->{WCODEAREA}->insert(0.1, $visrep->{ACTUAL_SEC}->code());
}

sub update_section() {
	my @lines = ();
	my $nrows = @{$visrep->{AROWS}}+0;
	my $cont;

	for ($cont = 0; $cont < $nrows; $cont++) {

bin/VisRep.pl  view on Meta::CPAN

	$visrep->{ACTUAL_SEC}->configure(Lines	=> \@lines,
									Code	=> $code,
								Break_field => $visrep->{WBREAKFIELD}->get());
}

sub update_toolbar() {
	$visrep->{WAREANAME}->configure(text	=> $visrep->{ACTUAL_SEC}->name());
	$visrep->{WSIZEVAREA}->delete(0.1, 'end');
	$visrep->{WSIZEVAREA}->insert(0, $visrep->{ACTUAL_SEC}->size());
	$visrep->{WBREAKFIELD}->configure(state => 'normal');
	$visrep->{WBREAKFIELD}->delete(0.1, 'end');

 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.");

lib/Data/SeaBASS.pm  view on Meta::CPAN

	my $new_row = $self->ingest_row(@_);
	unless ( defined($new_row) ) {
		croak("Error parsing inputs");
	}
	$self->{'data'}[ $self->{'dataidx'} ] = $new_row;
} ## end sub update

=head2 set($index, \%data_row | \@data_row | $data_row | %data_row)

    my %row = (lat => 1, lon => 2, chl => 1);
    $sb_file->set(0, \%row);

lib/Data/SeaBASS.pm  view on Meta::CPAN

C<add_and_remove_fields> on each row.  It then updates the /fields and /units
headers in the header hash.

=cut

sub update_fields {
	my ($self) = @_;
	if ( $self->{'options'}{'cache'} && $self->{'max_dataidx'} >= 0 ) {
		foreach my $hash ( @{ $self->{'data'} } ) {
			$self->add_and_remove_fields($hash);
		}
	}

	my $slash = ( $self->{'options'}{'keep_slashes'} ? '/' : '' );
	$self->{'headers'}{"${slash}fields"} = join( ',', @{ $self->{'actual_fields'} } );
	$self->{'headers'}{"${slash}units"}  = join( ',', @{ $self->{'actual_units'} } );
} ## end sub update_fields

=head2 add_and_remove_fields(\%row)

Given a reference to a row, this function deletes any fields removed with
C<remove_field> and adds an undefined or /missing value for each field added

 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

lib/Data/SearchEngine/Solr.pm  view on Meta::CPAN

    }

    return $result;
}

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);
}