view release on metacpan or  search on metacpan

lib/Games/Axmud/Buffer.pm  view on Meta::CPAN

    }

    ##################
    # Methods

    sub update {

        # Called by GA::Session->updateDisplayBuffer when this object stores the most
        #   recently-displayed line of text from the world, and that line hasn't yet been terminated
        #   with a newline character
        # Updates the stored IVs

 view release on metacpan or  search on metacpan

lib/Games/Construder/Client/Frontend.pm  view on Meta::CPAN

   $self->{res}->{config}->{fog} eq ''
      ? $FOG_DEFAULT
      : $self->{res}->{config}->{fog}
}

sub update_fog {
   my ($self) = @_;
   my $fog = $FOGS{$self->fog ()} || $FOGS{$FOG_DEFAULT};
   glClearColor (@$fog);
   glFogfv_p (GL_FOG_COLOR, @$fog);
}

 view release on metacpan or  search on metacpan

bin/frozen-bubble  view on Meta::CPAN

        }
    }
}

#- extract it from "handle_graphics" to optimize a bit animations
sub update_malus($$) {
    my ($fun, $p) = @_;
    my $malus_nb = @{$pdata{$p}{malus}};
    my $y_shift = 0;
    while ($malus_nb > 0) {
        my $print = sub($) {

 view release on metacpan or  search on metacpan

lib/Games/Go/AGA/TDListDB.pm  view on Meta::CPAN

            'next_tmp_id',
        ' ) VALUES ( 1, 0, 1 )',
    );
}

sub update_time {
    my ($self, $new) = @_;

    if (@_ > 1) {
        $self->sth('update_time')->execute($new);
    }

 view release on metacpan or  search on metacpan

Image2SGF.pm  view on Meta::CPAN

AP[Image2SGF by Chris Ball.]
PL[B]
ENDSTARTSGF
}

sub update_sgf {
   my $self = shift;
   my ($stone, $x, $y) = @_;
   if ($stone == BLACK) {
       push @{$self->{blackstones}}, "$y$x";
   }

 view release on metacpan or  search on metacpan

SimpleBoard.pm  view on Meta::CPAN

   9 => [qw(0,2 2,0 0,0 2,2 0,1 2,1 1,0 1,2 1,1)],
);

our $mark_symbols = MARK_CIRCLE | MARK_SQUARE | MARK_TRIANGLE | MARK_CROSS | MARK_KO;

sub update {
   my ($self, $path) = @_;

   my $board = $self->{board};

   for (@$path) {

 view release on metacpan or  search on metacpan

lib/Games/Irrlicht.pm  view on Meta::CPAN

  {
  my $self = shift;
  $self->{_app}->{depth};
  }

#sub update
#  {
#  my $self = shift;
#  $self->{_app}->{app}->update(@_);
#  }

 view release on metacpan or  search on metacpan

examples/glyphinator.pl  view on Meta::CPAN

    }

    return @results;
}

sub update_last_sent {
    my ($x, $y) = @_;

    my $r = $star_db->do(q{update orbitals set last_excavated = datetime(?,'unixepoch') where x = ? and y = ?}, {}, time(), $x, $y);
    unless ($r > 0) {
        diag("Warning: could not update orbitals table for body at $x, $y!\n");

 view release on metacpan or  search on metacpan

lib/Games/Minesweeper.pm  view on Meta::CPAN

sub start_timer () {
   $timer = 0;
   $watcher = AnyEvent->timer (after => 1.0, interval => 1, cb => sub { timeout; });
}

sub update_mine_count() {
   $mc->set_text ( sprintf " %.3d", $mine_count);
}

sub expose_cb {
   my ($w, $e) = @_;

 view release on metacpan or  search on metacpan

lib/Games/Nonogram/Clue.pm  view on Meta::CPAN

    }
  }
  return $hit ? $hit : 0;
}

sub update {
  my ($self, $mode) = @_;

  unless ( $mode ) {
    $self->_update_basic;
  }

 view release on metacpan or  search on metacpan

lib/Games/PMM/Arena.pm  view on Meta::CPAN

	my ($x, $y)          = @{ $monsters->{ $id } }; 
	return { x => $x, y => $y };
}

sub update_position
{
	my ($self, $monster, %args)   = @_;
	my $old_pos                   = $self->get_position( $monster );

	return unless $self->validate_position( %args );

 view release on metacpan or  search on metacpan

lib/Games/Quake/Player.pm  view on Meta::CPAN

###############################################
# 
# update_stats
#
sub update_stats {
    my ($self, $fraggee_name) = @_;
    my $stats = $self->{_stats};
 
    my $fraggee = Player->new(
	_name => $fraggee_name,

 view release on metacpan or  search on metacpan

ZIO_Curses.pm  view on Meta::CPAN

sub can_use_color {
  return has_colors() ? 1 : 0;
}

sub update {
  # force screen refresh
  $w_main->refresh();
}

sub set_version {

 view release on metacpan or  search on metacpan

Sokoban.pm  view on Meta::CPAN

      $_[1] % ($_[0]{w} + 1),
      $_[1] / ($_[0]{w} + 1),
   )
}

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

   for ($self->{data}) {
      s/^\n+//;
      s/\n$//;

 view release on metacpan or  search on metacpan

lib/Games/Sudoku/Kubedoku.pm  view on Meta::CPAN

}

#################################################
# Update the Game Data Structures
#################################################
sub update_data_struc {
    my $self = shift;
    my $game = shift;
    $self->{'result'} = $game->{'result'};
    $self->{'kube'}   = $game->{'kube'};
    $self->{'square'} = $game->{'square'};

 view release on metacpan or  search on metacpan

lib/Games/Tournament.pm  view on Meta::CPAN

Updates entrants' scores for the present (previous) round, using $tourney's play (ie games played) field. Returns an array of the scores in order of the player ids (not at the moment, it doesn't), dying on those entrants who don't have a result for t...

=cut

sub updateScores {
    my $self    = shift;
    my $players = $self->entrants;
    my $round   = $self->round;
    my $games   = $self->play;
    my @scores;

 view release on metacpan or  search on metacpan

lib/Gantry/Plugins/AutoCRUDHelper/CDBI.pm  view on Meta::CPAN

    my $id          = shift;

    return $gantry_site->get_model_name()->retrieve( $id );
}

sub update {
    my $class       = shift;
    my $gantry_site = shift;
    my $row         = shift;
    my $params      = shift;

 view release on metacpan or  search on metacpan

lib/Gapp/Form/Context.pm  view on Meta::CPAN

    return if ! $node;
    $node->modify( $attr, $value );
    # $self->_value_changed( $path, $value ) if ! $self->in_update( $path );
}

sub update {
    my ( $self, $stash ) = @_;
    
    
    for my $path ( $stash->elements ) {
        next if $path eq '';

 view release on metacpan or  search on metacpan

scripts/Gin.pm  view on Meta::CPAN

    

# We write into a temporary file which we move into place. This
# is so that any readers always see a consistent file - albeit
# possibly slightly out of date.
sub update_meta {
  my ($self, $data) = @_;

  return 0 if(!$self->{META_FILE});

  my $meta = $self->{META_FILE};

 view release on metacpan or  search on metacpan

lib/Geneos/API.pm  view on Meta::CPAN

    sub add_headline {shift->call("addHeadline", @_)}

    sub remove_headline {shift->call("removeHeadline", @_)}

    sub update_variable {shift->call("updateVariable", @_)}

    sub update_headline {shift->call("updateHeadline", @_)}

    sub update_table_cell {shift->call("updateTableCell", @_)}

    sub update_table_row {shift->call("updateTableRow", @_)}

    sub add_table_column {shift->call("addTableColumn", @_)}

    sub update_entire_table {shift->call("updateEntireTable", @_)}

    sub column_exists {shift->call("columnExists", @_)}

    sub row_exists {shift->call("rowExists", @_)}

 view release on metacpan or  search on metacpan

Genetics/API/DB/Update.pm  view on Meta::CPAN

  Comments  : Cluster.clusterType cannot be modified, so this method does 
              not touch the Cluster table.

=cut

sub updateCluster {
  my($self, $cluster) = @_ ;
  my($id, $actualType, $sth, $listPtr, $objRef) ;
  my $dbh = $self->{dbh} ;

  $DEBUG and carp " ->[updateCluster] $cluster." ;

 view release on metacpan or  search on metacpan

lib/Geo/IP/RU/IpGeoBase.pm  view on Meta::CPAN

        "INSERT INTO $table(". join( ', ', map $dbh->quote_identifier($_), @keys) .")"
        ." VALUES (". join( ', ', map $dbh->quote( $rec{$_} ), @keys ) .")";
    return $dbh->do( $query ) || die "Couldn't execute '$query': ". $dbh->errstr;
}

sub update_record {
    my $self = shift;
    my %rec  = @_;

    my $table = $self->db_info->{'quoted_table'};

 view release on metacpan or  search on metacpan

lib/Geo/Postcodes/Update.pm  view on Meta::CPAN

our $VERSION = '0.311';

#################################################################################

sub update
{
  my $module_name   = shift;
  my $file_name     = shift;
  my $full_url      = shift; # Can be 'undef'
  my $procedure     = shift;

 view release on metacpan or  search on metacpan

bin/demo.pl  view on Meta::CPAN

    );

    $self->app->fill($screen_rect, $black);
}

sub update_gesture {
    my $self = shift;
    return unless $self->is_gesturing;

    # add the current point to our list of points for this gesture
    push @{ $self->{gesture} }, [@_];

 view release on metacpan or  search on metacpan

GetRc.pm  view on Meta::CPAN

  croak "Can't close file ".$self->{'filename'} .": $1" if $?;
  $self->dprint( $self->{'filename'} ." closed");
  return(0);
}

sub updaterc ($\%){
  my $self = shift;
  local *h_input = shift;
  my ( $key, $value, $rc, %update_input);

  $self->dprint("join to updaterc");

 view release on metacpan or  search on metacpan

lib/Getopt/Chain/v005/Context.pm  view on Meta::CPAN

    $processor->run->($self, @_);

    $self->pop;
}

sub update {
    my $self = shift;

    my $link = $self->link;

    my $local_options = $self->local_options_;