view release on metacpan or  search on metacpan

tkdb.pm  view on Meta::CPAN

  }
  $self->{int}->SetVar('event','update');

} # end of retstoreState

sub updateEvalWindow {
  my ($self, @result) = @_ ;
  my ($leng, $str) = (0,'');

  for (@result) {
    if( $self->{hexdump_evals} ) {

 view release on metacpan or  search on metacpan

examples/example_stepper.pl  view on Meta::CPAN

	$context->{progStep} = $nextStep;
	$device->stepper_step(0,$nextProg[0],$nextProg[1],$nextProg[2]);
}

sub updatePosition {
	my ($context) = @_;

	my @stepperProgram = @{$context->{program}};
	my $lastStep = $context->{progStep};
	my @lastProg = @{$stepperProgram[$lastStep]};

 view release on metacpan or  search on metacpan

lib/Device/kilngraph.pl  view on Meta::CPAN

	
	my $pjx = new CGI::Ajax( 'exported_func' => \&update );
	print $pjx->build_html( $cgi, \&Show_HTML);
}

sub update {
	
}

sub test ($$){
	

 view release on metacpan or  search on metacpan

lib/Device/OUI.pm  view on Meta::CPAN

    }

    return $self->{ 'lookup' } = {};
}

sub update_from_file {
    my $self = shift;
    my $oui = $self->norm;

    my $cf = $self->cache_file;
    if ( ! $cf ) { return }

 view release on metacpan or  search on metacpan

JayCar.pm  view on Meta::CPAN

# Update the device.
# Need: NA
# Return: NA
# How: Use parport to update byte and then flash it.
sub update {
	my ($this) = @_;

	foreach my $board (@{$this->{BOARDS}}) {
		$this->_parport->set_byte(2, chr($cardmap{$board}));		# Prepare
		$this->_parport->set_byte(0, chr($this->_byte_calc($board)));	# Set data

 view release on metacpan or  search on metacpan

lib/Device/PiGlow.pm  view on Meta::CPAN

This updates the values set to the LED registers to the LEDs and changes
the display.

=cut

sub update
{
   my ( $self ) = @_;
   
   return $self->_write_byte(CMD_UPDATE, 0xFF);
}

 view release on metacpan or  search on metacpan

eg/demo3.plx  view on Meta::CPAN

my $evt_c="Win32";
my $err_c="Win32";

## if ($rint == 0xffffffff) { $rint = "OFF "; }

sub update_menu {
	$baud=$ob->baudrate;
	$par=$ob->parity;
	$data=$ob->databits;
	$stop=$ob->stopbits;
	$hshake=$ob->handshake;

 view release on metacpan or  search on metacpan

lib/Device/SpaceNavigator.pm  view on Meta::CPAN

    if ($self->{'_fh'}) {
        CORE::close $self->{'_fh'} || croak("$!");
    }
}

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

    if (!$self->{'_fh'}) {
        $self->open();

 view release on metacpan or  search on metacpan

WxM2.pm  view on Meta::CPAN

    }
    printf "firstPtr=%d lastPtr=%d\n", $firstPtr, $lastPtr;
    return $self->updateArchiveFromPtr($firstPtr, $file);
}

sub updateArchiveFromPtr {
    my ($self, $lastArchivedPtr, $file) = @_;
    my $i;
    my $rdFailed = 0;
    my $newPtrHex = $self->getNewPtr();
    return 0 unless defined $newPtrHex;

 view release on metacpan or  search on metacpan

lib/Dezi/Bot/Utils.pm  view on Meta::CPAN

otherwise returns hash ref of the updated
row.

=cut

sub update_or_insert {
    my ( $dbix, $data, $vars, $where, $table, $dbh ) = @_;

    # object defaults
    if ( ref $dbix ) {
        $where ||= $dbix->where;

 view release on metacpan or  search on metacpan

lib/DhMakePerl/Command/Packaging.pm  view on Meta::CPAN

    my $fh = $self->_file_w($file);
    $fh->print( $self->cfg->dh, "\n" );
    $fh->close;
}

sub update_file_list( $ % ) {
    my ( $self, %p ) = @_;

    my $pkgname = $self->pkgname;

    while ( my ( $file, $new_content ) = each %p ) {

 view release on metacpan or  search on metacpan

DiaColloDB/Upgrade/Base.pm  view on Meta::CPAN

	 };
}

## $bool = $up->updateHeader(\%extra_uinfo, \%extra_header_data)
##  + updates header $dbdir/header.json, creating backup if requested
sub updateHeader {
  my ($up,$xinfo,$xhdr) = @_;
  my $dbdir = $up->{dbdir};

  ##-- backup old header if requested
  !$up->{backup}

 view release on metacpan or  search on metacpan

UserSID.pm  view on Meta::CPAN

  } else {
    return 0;
  }
}
##############################################################################
sub update {
  my $sid = shift;
  my $file = shift || $UserSID::FILE;
  
  if ((not $sid) || (not $sid->{'user'})) {
    return 0;

 view release on metacpan or  search on metacpan

lib/DigitalOcean/Domain/Record.pm  view on Meta::CPAN

    my ($self) = @_;
    return $self->Domain->path . '/' . $self->id;
}


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

    return $self->DigitalOcean->_put_object($self->path, 'DigitalOcean::Domain::Record', 'domain_record', \%args);
}

 view release on metacpan or  search on metacpan

dsql_test.pl  view on Meta::CPAN

	return $cnt == 1;
}


sub update {
	my $self = shift;
	my $sqlh = $self->{sqlh};
	$self->msg;
	
	return $self->insert_update_check (

 view release on metacpan or  search on metacpan

lib/Disk/SMART.pm  view on Meta::CPAN

    $smart->update_data('/dev/sda');

=cut

sub update_data {
    my ( $self, @p_devices ) = @_;
    my @devices = @p_devices ? @p_devices : $self->get_disk_list();

    foreach my $device (@devices) {
        my $out;

 view release on metacpan or  search on metacpan

lib/Dist/Banshee/Mint.pm  view on Meta::CPAN

		rmdir '.banshee-update';
		die $@;
	}
}

sub update_script {
	my ($skeleton_name, $script_name) = @_;

	my $source_dir = catfile(_find_profile($skeleton_name), 'skeleton', '.banshee');

	my $source = catfile($source_dir, $script_name);

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Plugin/UpdateGitHub.pm  view on Meta::CPAN

use Config::Identity::GitHub;
use LWP::UserAgent;
my $agent = LWP::UserAgent->new;

sub update {
    my $self = shift;
    my %given = @_;
    my ( $login, $token, $repository, $description );

    ( $repository, $description ) = @given{qw/ repository description /};

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Tempdir/Dir.pm  view on Meta::CPAN

sub update_input_file {
  my ( $self, $file ) = @_;

  my $update_item = Dist::Zilla::Tempdir::Item->new( name => $file->name, file => $file->file, );
  $update_item->set_original;

 view release on metacpan or  search on metacpan

lib/Document/TriPart/Cabinet/Storage/Disk.pm  view on Meta::CPAN

#    my $self = shift;
#    my $document = shift;
#    $self->_write_document( $document );
#}

#sub update {
#    my $self = shift;
#    my $document = shift;
#    $self->_write_document( $document );
#}

#sub update_or_insert {
#    my $self = shift;
#    my $document = shift;

#    if ( $self->_load( $document ) ) {
#        $self->update( $document );

 view release on metacpan or  search on metacpan

lib/Domain/Register/DomainShare.pm  view on Meta::CPAN

sub domain_reactivate {
    my ($self, $args) = @_;
    $self->_make_request('domain_reactivate', undef, ['email', 'password', 'domainname'], $args);
}

sub update_parking {
    my ($self, $args) = @_;
    $self->_make_request('update_parking', undef, ['email', 'password', 'domainname'], $args);
}

 view release on metacpan or  search on metacpan

lib/Domain/Register/TK.pm  view on Meta::CPAN

          'domainname' => 'TESTDOMAIN-0004.TK'
        };

=cut

sub updatedns {
    my $self   = shift;
    my $domain = shift;

    my $st;

 view release on metacpan or  search on metacpan

lib/Drupal/Admin.pm  view on Meta::CPAN

}


# WARNING this has a dependency on an English string
# die()s if errors are detected
sub update {
  my($self) = @_;

  $self->log_trace("Entering update()");

  my $url = $self->{baseurl} . '/update.php';

 view release on metacpan or  search on metacpan

lib/DuckCurses/level1.pm  view on Meta::CPAN

	$self->init;

}

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

	if (my @units = $level_timer->hms and @units[1] >= 0.500) {
		$self->move_left;
		return "ok";