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) = @_;
view release on metacpan or search on metacpan
lib/Gideon/Driver.pm view on Meta::CPAN
my $order = delete $query{-order};
$driver->_find( $target, \%query, $order, 1 )->[0];
}
sub update {
my ( $driver, $target, %changes ) = @_;
my $is_object = ref $target;
Gideon::Exception::ObjectNotInStore->throw
view release on metacpan or search on metacpan
lib/Giovanni/Stages.pm view on Meta::CPAN
# the idea is to have different plugins that can extend the existing
# stages real easy. If this stages approach turns out to be too limited
# (ie 1000s of stages in one file, not a good look) we may need to
# rethink this approach.
sub update_cache {
my ($self, $ssh) = @_;
$self->log($ssh, "running update_cache task ...");
return;
}
view release on metacpan or search on metacpan
my @o_logs = $repo->run( log => '--pretty=oneline', 'origin/master');
is(@o_logs, 2, 'Second commit push successful');
}
# And on to testing the actual code...
sub update_foo {
my $str = shift;
open(my $foo, '>>', "$ld/foo");
if ($str) {
print $foo "$str\n";
}
view release on metacpan or search on metacpan
lib/Git/MoreHooks/CheckCommitBase.pm view on Meta::CPAN
my %opts = ( 'old_commit' => ':0', 'new_commit' => undef, 'gerrit-opts' => undef );
return _call_user_hook( $git, 'pre-commit', \%opts );
}
# This routine can act both as an update or a pre-receive hook.
sub update_callback {
$log->tracef( 'Entering update_callback(%s)', ( join q{:}, @_ ) );
my ($git) = @_;
my %opts = ( 'old_commit' => ':0', 'new_commit' => 0, 'gerrit-opts' => undef );
return _call_user_hook( $git, 'update', \%opts );
}
view release on metacpan or search on metacpan
lib/Git/PurePerl.pm view on Meta::CPAN
$ref = 'master' unless $ref;
$self->update_ref( $ref, $object->sha1 );
}
}
sub update_ref {
my ( $self, $refname, $sha1 ) = @_;
my $ref = file( $self->gitdir, 'refs', 'heads', $refname );
$ref->parent->mkpath;
my $ref_fh = $ref->openw;
$ref_fh->print($sha1) || die "Error writing to $ref";
view release on metacpan or search on metacpan
lib/Git/IndexInfo.pm view on Meta::CPAN
return ++$self->{nr};
}
undef;
}
sub update {
my ($self, $mode, $hash, $path) = @_;
if (print { $self->{gui} } $mode, ' ', $hash, "\t", $path, "\0") {
return ++$self->{nr};
}
undef;