view release on metacpan or search on metacpan
lib/Form/Processor/Model/CDBI.pm view on Meta::CPAN
}
sub update_model {
my ( $self ) = @_;
# Grab either the item or the object class.
my $item = $self->item;
view release on metacpan or search on metacpan
lib/Form/Processor/Model/DBIC.pm view on Meta::CPAN
Returns false if form does not validate, otherwise returns 1. Very likely dies on database errors.
=cut
sub update_from_form {
my ( $self, $params ) = @_;
return unless $self->validate($params);
$self->schema->txn_do( sub { $self->update_model } );
return 1;
}
lib/Form/Processor/Model/DBIC.pm view on Meta::CPAN
a row is created using "create" and the fields identified as columns passed
in a hashref, followed by "other" fields and relationships.
=cut
sub update_model {
my ($self) = @_;
my $item = $self->item;
my $source = $self->source;
# get a hash of all fields, skipping fields marked 'noupdate'
view release on metacpan or search on metacpan
lib/Form/Processor/Model/DOD.pm view on Meta::CPAN
Returns false if form does not validate. Very likely dies on database errors.
=cut
sub update_from_form {
my($model, $params) = @_;
return unless $model->validate($params);
# Grab either the item or the object class.
view release on metacpan or search on metacpan
lib/Form/Processor/Model/RDBO.pm view on Meta::CPAN
It does not save the current item automatically. You should do this in your
code, after the call update_from_form.
=cut
sub update_from_form {
my ( $self, $params ) = @_;
return unless $self->validate( $params );
return $self->update_model( $params );
}
lib/Form/Processor/Model/RDBO.pm view on Meta::CPAN
Returns the new RDBO item, filled with passed form params. It does not save any
data to the database, just creates and fills new RDBO object.
=cut
sub update_model {
my ( $self, $params ) = @_;
my $item = $self->item;
my $class = ref( $item ) || $self->object_class;
view release on metacpan or search on metacpan
AI/FreeHAL/Config.pm view on Meta::CPAN
package AI::FreeHAL::Config::Gap;
use AI::FreeHAL::Class;
### [caller 0]
{
sub serialize { return "\n" }
sub update {}
sub extend {}
sub copy_to {}
}
package AI::FreeHAL::Config::Comment;
AI/FreeHAL/Config.pm view on Meta::CPAN
sub append_comment {
my ($self, $new_text) = @_;
$text_of{ident $self} .= $new_text;
}
sub update {}
sub extend {}
sub copy_to {}
}
package AI::FreeHAL::Config::Keyval;
AI/FreeHAL/Config.pm view on Meta::CPAN
}
return $serialization;
}
sub update {
my ($self, $hash_ref, $updated_ref) = @_;
my $ident = ident $self;
my $key = $key_of{$ident};
AI/FreeHAL/Config.pm view on Meta::CPAN
}
return $serialization;
}
sub update {
my ($self, $hash_ref, $updated_ref) = @_;
my $ident = ident $self;
if (!defined $hash_ref) {
$deleted_of{$ident} = 1;
view release on metacpan or search on metacpan
lib/FreePAN/Command.pm view on Meta::CPAN
sub registry_outdated {
my $base = io($self->hub->config->base)->chdir;
-M 'plugins' < -M 'registry.dd';
}
sub update_registry {
$self->create_registry(@_);
}
sub handle_all {
warn "-all not yet implemented\n";
view release on metacpan or search on metacpan
lib/FreeRADIUS/Database.pm view on Meta::CPAN
return $self->password({ username => $username });
}
# NAS
sub update_ras_name {
my $self = shift;
my $params = shift;
my $day = $params->{ day };
view release on metacpan or search on metacpan
GLBackEnd.pm view on Meta::CPAN
sub quitpressed {
return delete $_[0]{QuitPressed};
}
sub update_scene {
my($this,$time) = @_;
while(XPending()) {
# print "UPDS: Xpend:",XPending(),"\n";
my @e = &glpXNextEvent();
view release on metacpan or search on metacpan
lib/Fry/Lib/CDBI/Basic.pm view on Meta::CPAN
#?: why does this system always return a fail code
#$cls->view("cdbi_update (y/n)? "); chomp($inp = <STDIN>);
$inp = $cls->Rline->stdin("cdbi_update (y/n)?");
return ($inp eq "y");
}
sub update_from_file {
my ($cls,$tempfile,@records) = @_;
my @lines = $cls->file2array($tempfile);
#my $firstline = shift(@lines);
view release on metacpan or search on metacpan
lib/Fsdb/IO.pm view on Meta::CPAN
=head2 update_v1_headerrow
internal: create the header the internal schema
=cut
sub update_v1_headerrow {
my $self = shift @_;
my $h = "#h ";
$h = "#L " if ($self->{_rscode} ne 'D');
if ($self->{_fscode} && $self->{_fscode} ne 'D') {
$h .= "-F" . $self->{_fscode} . " ";
lib/Fsdb/IO.pm view on Meta::CPAN
=head2 update_headerrow
internal: create the header the internal schema
=cut
sub update_headerrow($) {
my $self = shift @_;
my $h = "#fsdb ";
if ($self->{_fscode} && $self->{_fscode} ne 'D') {
$h .= "-F " . $self->{_fscode} . " ";
};
view release on metacpan or search on metacpan
lib/FP/Trie.pm view on Meta::CPAN
($t, $l, $maybe_lvl, $maybe_r_lvl)
}
}
}
sub update {
@_ == 3 or fp_croak_arity 3;
my ($t, $l, $fn) = @_;
if ($l->is_null) {
FP::Trie::ValueLevel->new($$t{sublevels}, &$fn($t->perhaps_value))
} else {
view release on metacpan or search on metacpan
print "begin new transaction\n";
#$dbh->begin_work || die $dbh->errstr;
}
sub update_db {
my $file = shift || die;
$files{$file}{ctime} = time();
my ($cont,$id) = (
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
$examples =~ s/\r\n/\n/g;
update_file( $example_file, $examples );
};
};
sub update_file {
my( $filename, $new_content ) = @_;
my $content;
if( -f $filename ) {
open my $fh, '<', $filename
or die "Couldn't read '$filename': $!";
view release on metacpan or search on metacpan
lib/Bio/Graphics/Browser2.pm view on Meta::CPAN
$source =~ s!/+$!!;
$source;
}
sub update_data_source {
my $self = shift;
my $session = shift;
my $new_source = shift;
my $old_source = $session->source || $self->default_source;
view release on metacpan or search on metacpan
examples/v201309/basic_operations/update_ad_group.pl view on Meta::CPAN
# Replace with valid values of your account.
my $ad_group_id = "INSERT_AD_GROUP_ID_HERE";
# Example main subroutine.
sub update_ad_group {
my $client = shift;
my $ad_group_id = shift;
# Create ad group with updated status.
my $ad_group = Google::Ads::AdWords::v201309::AdGroup->new({
view release on metacpan or search on metacpan
#$this->error($error) and return if !$res;
return $res;
}
sub update_trustdb { my ($this) = @_;
my ($pid,$output,$error) = start_gpg($this,$this->{'COMMAND'}.' --update-trustdb', '');
return if !$pid;
$error =~ s/^gpg: (\d+) keys processed\s*//;
my $number_processed = $1 || '0';
view release on metacpan or search on metacpan
lib/GRNOC/Config.pm view on Meta::CPAN
=head2 update_node
=cut
sub update_node{
my $self = shift;
my $path = shift;
my $new_value = shift;
lib/GRNOC/Config.pm view on Meta::CPAN
=head2 update_attribute
=cut
sub update_attribute{
my $self = shift;
my $path = shift;
my $attribute_name = shift;
my $attribute_value = shift;
view release on metacpan or search on metacpan
);
}
my @buttons;
sub update_locks ($) {
my $box = shift;
my $lines;
my $cv = gtm_run (
[qw/lke show -all/],
">" => \$lines,
view release on metacpan or search on metacpan
lib/Game/DijkstraMap.pm view on Meta::CPAN
}
}
return \@points;
}
sub update {
my $self = shift;
my $dimap = $self->dimap;
croak "dimap not set" if !defined $dimap;
my $maxrow = $dimap->$#*;
my $maxcol = $dimap->[0]->$#*;
view release on metacpan or search on metacpan
lib/Game/EnergyLoop.pm view on Meta::CPAN
package Game::EnergyLoop;
our $VERSION = '0.01';
use strict;
use warnings;
sub update {
my ($enlos, $initiative, $arg) = @_;
my $min = ~0;
for my $ent (@$enlos) {
my $energy = $ent->enlo_energy;
$min = $energy if $energy < $min;
view release on metacpan or search on metacpan
lib/Game/HeroesVsAliens/Message.pm view on Meta::CPAN
has opacity => (
is => 'rw',
default => sub { 1 }
);
sub update {
my ($self, $app) = @_;
$self->y($self->y - 0.3);
$self->life_span($self->life_span + 1);
$self->opacity($self->opacity - 0.03) if ($self->opacity > 0.03);
}
view release on metacpan or search on metacpan
sub turn_around ($ani) {
$ani->[ORIENT] = ( $ani->[ORIENT] + 2 ) % @headings;
}
sub update {
put_sprite( 0, 0, $bgi );
put_sprite( @gridxy, $gridi );
my $title = q{K E Z B O A R D A L P H A - L} . $level;
$font->print( $app, 16, 15, $title );
view release on metacpan or search on metacpan
lib/Game/LevelMap.pm view on Meta::CPAN
}
print $s;
return $self;
}
sub update_terminal {
my $self = $_[0];
my ( $col, $row ) = map int, @_[ 1 .. 2 ];
my $lm = $self->level;
my $s = '';
for my $point ( @_[ 3 .. $#_ ] ) {
view release on metacpan or search on metacpan
lib/Game/Life/Infinite/Board.pm view on Meta::CPAN
sub getColor {
my $self = shift;
return $self->{'color'};
};
sub updateCell {
# Update the state of a cell. If non-existing, create it.
my ( $self, $xpos, $ypos, $state ) = @_;
defined ($self->{'cells'}->{$xpos, $ypos}) or &createCell($self, $xpos, $ypos);
if (($self->{'cells'}->{$xpos, $ypos}->{'state'}) and (not $state)) {
my $oldstate = $self->{'cells'}->{$xpos, $ypos}->{'state'};
view release on metacpan or search on metacpan
my ($app) = @_;
$app->{dirty} = 1;
return NEXT_EVENT;
}
sub update {
my ($app) = @_;
if ( $app->{dirty} ) {
touchwin;
move 0, 0;
clrtobot;
view release on metacpan or search on metacpan
lib/Game/PlatformsOfPeril.pm view on Meta::CPAN
}
}
$Hero = [ $col, $goal ];
}
sub update_hero {
my ( $key, $ret );
tcflush( STDIN_FILENO, TCIFLUSH );
while (1) {
while (1) {
$key = ReadKey(0);
lib/Game/PlatformsOfPeril.pm view on Meta::CPAN
last if $ret != MOVE_FAILED;
}
return $ret;
}
sub update_monst {
my ($ent) = @_;
my $mcol = $ent->[LMC][WHERE][PCOL];
my $mrow = $ent->[LMC][WHERE][PROW];
# prevent monster move where only gravity should apply
view release on metacpan or search on metacpan
lib/Game/Xomb.pm view on Meta::CPAN
my ($won) = @_;
my $score = loot_value() + ($won ? 10000 : 0) + 10 * int exp $Level_Max;
return "Score: $score in $Turn_Count turns (v$VERSION:$Seed)";
}
sub update_gameover {
state $count = 0;
raycast_fov(1);
tcflush(STDIN_FILENO, TCIFLUSH);
my $key = $RKFN->(\%Key_Commands);
if ($count == 4) {
lib/Game/Xomb.pm view on Meta::CPAN
}
$count++;
return MOVE_OKAY, DEFAULT_COST;
}
sub update_fungi {
my ($self) = @_;
my ($mcol, $mrow) = $self->[LMC][WHERE]->@[ PCOL, PROW ];
my ($tcol, $trow) = $Animates[HERO][LMC][WHERE]->@[ PCOL, PROW ];
my $weap = $self->[STASH][WEAPON];
lib/Game/Xomb.pm view on Meta::CPAN
}
return MOVE_OKAY, $cost;
}
sub update_ghast {
my ($self) = @_;
my ($mcol, $mrow) = $self->[LMC][WHERE]->@[ PCOL, PROW ];
my ($tcol, $trow) = $Animates[HERO][LMC][WHERE]->@[ PCOL, PROW ];
my $weap = $self->[STASH][WEAPON];
lib/Game/Xomb.pm view on Meta::CPAN
}
return MOVE_OKAY, $cost;
}
sub update_mimic {
my ($self) = @_;
my ($mcol, $mrow) = $self->[LMC][WHERE]->@[ PCOL, PROW ];
my ($tcol, $trow) = $Animates[HERO][LMC][WHERE]->@[ PCOL, PROW ];
my $weap = $self->[STASH][WEAPON];
lib/Game/Xomb.pm view on Meta::CPAN
$Violent_Sleep_Of_Reason = 1;
return MOVE_OKAY, $cost;
}
sub update_player {
my ($self) = @_;
my ($cost, $ret);
# pre-move tasks
sb_update_energy();
lib/Game/Xomb.pm view on Meta::CPAN
$Turn_Count++;
return $ret, $cost;
}
# when player is in range try to shoot them
sub update_troll {
my ($self) = @_;
my ($mcol, $mrow) = $self->[LMC][WHERE]->@[ PCOL, PROW ];
my ($tcol, $trow) = $Animates[HERO][LMC][WHERE]->@[ PCOL, PROW ];
my $weap = $self->[STASH][WEAPON];
lib/Game/Xomb.pm view on Meta::CPAN
return MOVE_OKAY, $cost;
}
# like shooter but can only fire across totally open ground. advanced
# targetting arrays prevent friendly fire and property damage
sub update_stalker {
my ($self) = @_;
my ($mcol, $mrow) = $self->[LMC][WHERE]->@[ PCOL, PROW ];
my ($tcol, $trow) = $Animates[HERO][LMC][WHERE]->@[ PCOL, PROW ];
my $weap = $self->[STASH][WEAPON];
view release on metacpan or search on metacpan
lib/Games/2048/Animation.pm view on Meta::CPAN
my $value = $self->cur_frame / ($self->frame_count - 1);
my $range = $self->last_value - $self->first_value;
return $value * $range + $self->first_value;
}
sub update {
my $self = shift;
return if $self->cur_frame >= $self->frame_count;
$self->cur_frame($self->cur_frame + 1);
return 1;
}
view release on metacpan or search on metacpan
lib/Games/3D/Thingy.pm view on Meta::CPAN
$dst->add_input($link);
$link->add_input($self); # from us to link
$link;
}
sub update
{
# if thing is going from state A to state B, interpolate values based upon
# current time tick. If reached state B, disable interpolation, and send a
# signal. Return 1 if while still in transit, 0 if target state reached
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
lib/Games/Axmud/Buffer.pm view on Meta::CPAN
$self->updateModes();
return 1;
}
sub updateModes {
# Called by $self->new and $self->update
# $self->mxpModeHash stores all the MXP modes (but only those in the range 10-12, 19, 20-99)
# that apply to this line
# Update the hash