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/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/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/Lite.pm  view on Meta::CPAN

  }# end if()
}# end do_transaction()


#==============================================================================
sub update
{
  my $s = shift;
  confess "$s\->update cannot be called without an object" unless ref($s);
  
  return 1 unless eval { keys(%{ $s->{__Changed} }) };

 view release on metacpan or  search on metacpan

lib/Class/DBI/MockDBD.pm  view on Meta::CPAN

  }
  return 1;
}


sub update {
  my $self  = shift;
  my $class = ref($self)
    or return $self->_croak("Class::DBI::MockDBD -- Can't call update as a class method");

  $self->call_trigger('before_update');

 view release on metacpan or  search on metacpan

lib/Class/DBI/Sweet.pm  view on Meta::CPAN

    }

    return $self->SUPER::insert(@_);
}

sub update {
    my $self = shift;

    if ( $self->cache ) {
        $self->cache->remove( $self->cache_key );
        $self->cache->set( $self->_staleness_cache_key, time() );

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

 view release on metacpan or  search on metacpan

lib/Class/ExtraAttributes.pm  view on Meta::CPAN

 my $object = MyObject->new;
 $object->foo($value);
 my $value = $object->foo;

 sub update {  # in case you want persistence for extra attributes
     my $object= shift;
     $object->SUPER::update(@_);

     my @extra= Class::ExtraAttributes->attributes;
     # perform update for extra attributes

 view release on metacpan or  search on metacpan

Catalog.pm  view on Meta::CPAN

    my ($self) = @_ ;
    return sort keys %{$self->{catalog_list}} ;
  }

#internal
sub update_catalog_list
  {
    my $self = shift ;

    # reset and update catalog lists (which is somewhat different from rebuild)
    delete $self->{catalog} ;

 view release on metacpan or  search on metacpan

MVC.pm  view on Meta::CPAN

		},
	};
	
		# dispatch method for Observer ( see Class::Observable )

	sub update : method
	{
		my $this = shift;
	
		my ( $object, $action ) = @_;

MVC.pm  view on Meta::CPAN

	sub sub_views : method
	{
		my $this = shift;
	}
	
	sub update : method
	{
		my $this = shift;
		
			# update yourself
			

MVC.pm  view on Meta::CPAN

	sub _postinit : method
	{
		my $this = shift;
	}

	sub update_model : method
	{
		my $this = shift;
		
				# call Model methods from here
			

 view release on metacpan or  search on metacpan

lib/Role.pm  view on Meta::CPAN

    use Role;

    has 'created_at' => ( default => sub { time } );
    has 'updated_at' => ( default => sub { time } );

    sub update_timestamp {
        my $self = shift;
        $self->updated_at(time);
    }

    1;

 view release on metacpan or  search on metacpan

lib/Class/Observable.pm  view on Meta::CPAN

 
  # Define an observer
 
  package My::Observer;
 
  sub update {
     my ( $class, $object, $action ) = @_;
     unless ( $action ) {
         warn "Cannot operation on [", $object->id, "] without action";
         return;
     }

lib/Class/Observable.pm  view on Meta::CPAN

 
  # Create a class-based observer
 
  package My::ParentRules;
 
  sub update {
      my ( $item, $action ) = @_;
      if ( $action eq 'prepare_for_bed' ) {
          $item->brush_teeth;
          $item->wash_face;
      }

lib/Class/Observable.pm  view on Meta::CPAN

B<Class observer>:

 package My::ObserverC;
 
 sub update {
     my ( $class, $item, $action, $params ) = @_;
     return unless ( $action eq 'update' );
     # ...
 }

lib/Class/Observable.pm  view on Meta::CPAN

 sub new {
     my ( $class, $type ) = @_;
     return bless ( { type => $type }, $class );
 }
 
 sub update {
     my ( $self, $item, $action, $params ) = @_;
     return unless ( $action eq $self->{type} );
     # ...
 }

 view release on metacpan or  search on metacpan

lib/Class/Publisher.pm  view on Meta::CPAN

Class subscribers are notified of events via the class's C<update()> method:

    package My::Subscriber;

    sub update {
        my ($class, $publisher, $event, @args) = @_;
        if ($event eq 'reload') {
            # ...
        } elsif ($event eq 'refresh') {
        }

lib/Class/Publisher.pm  view on Meta::CPAN

Object subscribers are notified of events via the object's C<update()> method:

    package My::Subscriber;

    sub update {
        my ($self, $publisher, $event, @args) = @_;
        # ...
    }

Object notifications can be routed to other methods. See C<add_subscriber()>.

 view release on metacpan or  search on metacpan

t/lib/Test/Class/Refresh.pm  view on Meta::CPAN

    rcopy($from_dir, $to_dir);

    return $to_dir;
}

sub update_temp_dir_for {
    my ($test_id, $to_dir, $subdir) = @_;
    $subdir ||= 'after';

    my $from_dir = 't/data/' . $test_id . "/$subdir";

 view release on metacpan or  search on metacpan

lib/Class/User/DBI.pm  view on Meta::CPAN

        }
    }
    return @rv;
}

sub update_password {
    my ( $self, $newpass, $oldpass ) = @_;

    return if !$self->exists_user;

    # If an old passphrase is supplied, only update if it validates.

 view release on metacpan or  search on metacpan

lib/Class/orMapper.pm  view on Meta::CPAN

	$sth->execute(@v);
	$sth->finish;
}

# update
sub update{
	my ($self,$p) = @_;
	my ($s,@v);
	$s = "update " . $p->{table} . " set " . join(',', map{push(@v,$p->{columns}->{$_});$_ = $_ . '=?'} keys %{$p->{columns}});
	my ($w,@vv) = where($p);
	if($w){

 view release on metacpan or  search on metacpan

DSB.pm  view on Meta::CPAN

files actually changed. It also suppresses logging by redirecting the
log file to /dev/null.

=cut

sub update {
    my %opt;
    GetOptions(\%opt, qw(quiet));
    return 0 if !$opt{quiet};
    if (!grep m%^-log%, @ARGV) {
	splice(@ARGV, 1, 0, '-log', MSWIN ? 'NUL' : '/dev/null');

 view release on metacpan or  search on metacpan

lib/ClearPress/model.pm  view on Meta::CPAN

  }
  $self->{_loaded} = 1;
  return 1;
}

sub update {
  my $self  = shift;
  my $pk    = $self->primary_key();

  if(!$pk || !$self->$pk()) {
    croak q(No primary key);

 view release on metacpan or  search on metacpan

lib/Clearcase/Element.pm  view on Meta::CPAN

  $comment = Clearcase::setComment $comment;

  return $Clearcase::CC->execute ("checkin $comment $self->{pname}");
}    # checkout

sub updateElementInfo () {
  my ($self) = @_;

  # Get all information that can be gotten using -fmt
  my $fmt =
      'Attributes:%aEndAttributes:'