view release on metacpan or search on metacpan
lib/Games/Checkers/SDL.pm view on Meta::CPAN
$self->{fullscreen} ^= 1;
SDL::Video::wm_toggle_fullscreen($self->{display});
}
sub update_display ($) {
my $self = shift;
SDL::Video::update_rect($self->{display}, 0, 0, 0, 0);
return 1;
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);
}
lib/Games/Construder/Client/Frontend.pm view on Meta::CPAN
my $sbp = $self->{selected_box};
my $sbbp = $self->{selected_build_box};
$self->position_action ($sbp, $sbbp, $btn);
}
sub update_player_pos : event_cb {
my ($self, $pos) = @_;
}
sub visible_chunks_changed : event_cb {
my ($self, $new, $old, $req) = @_;
view release on metacpan or search on metacpan
lib/Games/FrogJump/Animation.pm view on Meta::CPAN
sub end {
my $self = shift;
return $self->current_frame >= $self->frame_count ? 1 : 0;
}
sub update {
my $self = shift;
my $obj = $self->obj;
my $attr = $self->attr;
my $snap_index = int($self->current_frame / $self->snapshot_frame_count);
$obj->$attr($self->snapshot->[$snap_index]) if $snap_index < @{$self->snapshot};
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($) {
bin/frozen-bubble view on Meta::CPAN
mp_disconnect_with_reason('', '', '', '', loc("Lost connection to server!"), '', loc("Your lag is probably too high."));
}
}
}
sub update_say_mp {
put_image($imgbin{void_chat}, $POS{p1}{chatting}{x}, $POS{p1}{chatting}{'y'});
callback_entry('print', { xpos => $POS{p1}{chatting}{x} + 15, ypos => $POS{p1}{chatting}{'y'} + 5, font => 'ingame_chat', maxlen => $imgbin{void_chat}->w - 30 });
push @update_rects, $apprects{main};
}
bin/frozen-bubble view on Meta::CPAN
$pdata{$player}{hurry_save_img} and
switch_image_on_background($pdata{$player}{hurry_save_img}, $POS{$player}{left_limit} + $POS{$player}{hurry}{x}, $POS{$player}{hurry}{'y'});
$pdata{$player}{hurry_save_img} = undef;
}
sub update_lost {
my ($player) = @_;
return if odd($frame);
if (@{$sticked_bubbles{$player}}) {
bin/frozen-bubble view on Meta::CPAN
print_('menu', $app, $MENUPOS{xpos_panel}, $MENUPOS{ypos_panel} + 30, loc("Draw game!"), $imgbin{void_panel}->w - 20, 'center');
SDL::Video::update_rect($app, 0, 0, 0, 0);
}
}
sub update_won {
my ($player) = @_;
return if odd($frame);
iter_players { #- need iter_players to get the small graphics change for free if we're in multiplayer
bin/frozen-bubble view on Meta::CPAN
}
}
#- ----------- mainloop helper --------------------------------------------
sub update_game() {
if ($pdata{state} eq 'game') {
handle_game_events();
iter_players {
if ($pdata{$::p}{state} eq 'lost') {
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);
}
lib/Games/Go/AGA/TDListDB.pm view on Meta::CPAN
$reaped++ if ($kid > 0);
} while $kid > 0;
return $reaped;
}
sub update_from_AGA {
my ($self) = @_;
my $pid;
if ($self->background) {
$pid = fork;
lib/Games/Go/AGA/TDListDB.pm view on Meta::CPAN
$self->update_from_file($fname);
exit if (defined $pid); # exit if this is a spawned child ($pid == 0)
}
sub update_from_file {
my ($self, $fh) = @_;
if (not ref $fh) {
my $fname = $fh;
$fh = undef;
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
$_[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 '';
lib/Gapp/Form/Context.pm view on Meta::CPAN
$self->modify( $path, $value );
# $self->set_in_update( $path, 0 );
}
}
sub update_from_stash {
my $self = shift;
use Carp qw( cluck );
cluck '$cx->update_from_stash( $stash ) deprecated, use $cx->update( $stash )';
$self->update( @_ );
view release on metacpan or search on metacpan
lib/GappX/FileTree.pm view on Meta::CPAN
after _build_gobject => sub {
#$_[0]->update;
};
sub update {
my ( $self ) = @_;
$self->model->gobject->clear;
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." ;
Genetics/API/DB/Update.pm view on Meta::CPAN
relationships Kindred->Subjects and Subject->Kindred are kept in
synch.
=cut
sub updateSubject {
my($self, $subject) = @_ ;
my($id, $actualType, $sth, $sth1, $orgPtr, $orgID, $kindredRef,
$momRef, $dadRef, $sex, $date, $isProband) ;
my $dbh = $self->{dbh} ;
Genetics/API/DB/Update.pm view on Meta::CPAN
relationships Kindred->Subjects and Subject->Kindred are kept
in synch. This only applies to primary Kindreds, of course.
=cut
sub updateKindred {
my($self, $kindred) = @_ ;
my($id, $actualType, $sth, $kindredRef, $subjRef, $subjListPtr, @subjIDs) ;
my $dbh = $self->{dbh} ;
$DEBUG and carp " ->[updateKindred] $kindred." ;
Genetics/API/DB/Update.pm view on Meta::CPAN
Returns : 1 on success, undef otherwise.
Scope : Public
=cut
sub updateMarker {
my($self, $marker) = @_ ;
my($id, $actualType, $sth, $sth1, $chr, $orgPtr, $orgID, $seqPtr, $oldSeqID,
$newSeqID, $ploidy, $polyType, $idx, $seq, $alleleListPtr, $allelePtr,
$iscnListPtr, $iscnMapLocID, $iscnPtr, $iscnID) ;
my $dbh = $self->{dbh} ;
Genetics/API/DB/Update.pm view on Meta::CPAN
Returns : 1 on success, undef otherwise.
Scope : Public
=cut
sub updateSNP {
my($self, $snp) = @_ ;
my($id, $actualType, $sth, $sth1, $chr, $orgPtr, $orgID, $seqPtr, $oldSeqID,
$newSeqID, $ploidy, $type, $class, $idx, $conf, $method, $alleleListPtr,
$allelePtr, $iscnListPtr, $iscnMapLocID, $iscnPtr, $iscnID) ;
my $dbh = $self->{dbh} ;
Genetics/API/DB/Update.pm view on Meta::CPAN
Returns : 1 on success, undef otherwise.
Scope : Public
=cut
sub updateGenotype {
my($self, $gt) = @_ ;
my($id, $actualType, $sth, $active, $icResult, $date, $acListPtr,
$poID, $sthAC, $sthA, $sortOrder, $acPtr, $alleleID, $aaListPtr,
$alleleCallID) ;
my $dbh = $self->{dbh} ;
Genetics/API/DB/Update.pm view on Meta::CPAN
Scope : Public
Comments : StudyVariable.format cannot be modified.
=cut
sub updateStudyVariable {
my($self, $sv) = @_ ;
my($id, $format, $category, $actualType, $sth, $isX, $desc, $bound,
$codesListPtr, $codePtr, $arrRef, $sth1, $cdID, $oldAsdID, $asdPtr, $asdID, $aseListPtr,
$asePtr, $oldLcdID, $lcDefPtr, $lcdID, $lcListPtr, $lcPtr) ;
my $dbh = $self->{dbh} ;
Genetics/API/DB/Update.pm view on Meta::CPAN
Scope : Public
Comments :
=cut
sub updatePhenotype {
my($self, $pt) = @_ ;
my($id, $actualType, $sth, $active, $date, $svFormat, $valueFieldName, $aaListPtr) ;
my $dbh = $self->{dbh} ;
$DEBUG and carp " ->[updatePhenotype] $pt" ;
Genetics/API/DB/Update.pm view on Meta::CPAN
Returns : 1 on success, undef otherwise.
Scope : Public
=cut
sub updateFrequencySource {
my($self, $fs) = @_ ;
my($id, $actualType, $sth, $sthA, $sthOF, $sthFSOF, $listPtr, $arrRef,
$oafPtr, $allelePtr, $poID, $alleleID, $obsFreqID, $ohfPtr, $htID) ;
my $dbh = $self->{dbh} ;
Genetics/API/DB/Update.pm view on Meta::CPAN
Returns : 1 on success, undef otherwise.
Scope : Public
=cut
sub updateHtMarkerCollection {
my($self, $hmc) = @_ ;
my($id, $actualType, $sth, $units, $poListPtr, $sortOrder, $poPtr) ;
my $dbh = $self->{dbh} ;
$DEBUG and carp " ->[updateHtMarkerCollection] $hmc" ;
Genetics/API/DB/Update.pm view on Meta::CPAN
Returns : 1 on success, undef otherwise.
Scope : Public
=cut
sub updateHaplotype {
my($self, $ht) = @_ ;
my($id, $actualType, $sth, $sthA, $hmcPtr, $hmcID, $alleleListPtr,
$sortOrder, $allelePtr, $poID, $alleleID) ;
my $dbh = $self->{dbh} ;
Genetics/API/DB/Update.pm view on Meta::CPAN
Returns : 1 on success, undef otherwise.
Scope : Public
=cut
sub updateDNASample {
my($self, $sample) = @_ ;
my($id, $actualType, $sth, $date, $amt, $units, $conc, $subjPtr,
$gtListPtr, $gtPtr) ;
my $dbh = $self->{dbh} ;
Genetics/API/DB/Update.pm view on Meta::CPAN
Returns : 1 on success, undef otherwise.
Scope : Public
=cut
sub updateTissueSample {
my($self, $sample) = @_ ;
my($id, $actualType, $sth, $date, $tissue, $amt, $units, $subjPtr,
$dsListPtr, $dsPtr) ;
my $dbh = $self->{dbh} ;
Genetics/API/DB/Update.pm view on Meta::CPAN
Returns : 1 on success, undef otherwise.
Scope : Public
=cut
sub updateMap {
my($self, $map) = @_ ;
my($id, $actualType, $sth, $method, $units, $chr, $orgPtr, $orgID, $sortOrder,
$omeListPtr, $omePtr, $soPtr, $soID, $omeName) ;
my $dbh = $self->{dbh} ;
view release on metacpan or search on metacpan
t/sandbox/usr/portage/app-portage/gentoolkit/files/scripts/echangelog view on Meta::CPAN
\s*\n(?=\ \ \d|\*|\z) # suck up trailing whitespace
/$1\n\n*$version ($date)\n\n$entry\n\n/sx
or die "Failed to insert new entry (4)\n";
}
sub update_copyright {
my ($t) = @_;
my ($year) = strftime('%Y', localtime);
$t =~ s/^# Copyright \d+(?= )/$&-$year/m or
$t =~ s/^(# Copyright \d+)-(\d+)/$1-$year/m;
return $t;
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
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_;
view release on metacpan or search on metacpan
GUI/withevap.ptk view on Meta::CPAN
-background => ($help->configure(-background))[3]],
);
} # end see_view
sub update_command {
# Create the command to execute.
# BEGIN application specific command line processing.
# END application specific command line processing.
GUI/withevap.ptk view on Meta::CPAN
return $genPerlTk_command;
} # end update_command
sub update_checkbutton_list {
# Toggle $val in $var.
my($var, $val) = @_;