view release on metacpan or  search on metacpan

lib/Lingua/ZH/Romanize/DictZH.pm  view on Meta::CPAN

sub target {
    ( keys %$DICT_FILES );
}

sub update {
    my $package = shift;
    my $base    = shift;
    print "Updater: ", __PACKAGE__, " (", $VERSION, ")\n";

    unless ( defined $base ) {

 view release on metacpan or  search on metacpan

testing-links/test-link.pl  view on Meta::CPAN

# Updates the link in the database.

# =cut

sub update_link {
  my $link=shift;
  # here be danger.. this could cause multiplication of links in
  # the database if the url function returns variable values..
  # it `shouldn´t´
  print STDERR "New link is " , $link,  Dumper ( $link )

 view release on metacpan or  search on metacpan

lib/Linux/APT.pm  view on Meta::CPAN

=back

=cut

sub update
{
  my $self = shift;
  my $update = {};

  if (open(APT, "$self->{aptget} -q update 2>&1 |"))

 view release on metacpan or  search on metacpan

contrib/boottool.pl  view on Meta::CPAN

    print "Added: $param{'title'}.\n";
}

# Update kernel args

sub update_grub {
    my %params = @_;

    print("Updating kernel.\n") if &debug() > 1;

    if ( !defined $params{'update-kernel'} && !defined $params{'xenhyper-args'}

contrib/boottool.pl  view on Meta::CPAN

    }
}

# Update kernel args

sub update {
    my %params = @_;

    return &update_grub(%params) if ( $bootloader eq 'grub' );

    print("Updating kernel.\n") if &debug() > 1;

 view release on metacpan or  search on metacpan

lib/Linux/DVB/DVBT/Advert.pm  view on Meta::CPAN

	return $frame - $prev_frame_end - 1 ;
}

#-----------------------------------------------------------------------------
#
sub update_gap
{
	my ($frames_aref) = @_ ;

	my $prev_frame_end = -1 ;
	foreach my $href (@$frames_aref)

 view release on metacpan or  search on metacpan

install/tpl/quartzpvr-install.pl  view on Meta::CPAN

	
	update_table_versions($app, $settings_href, \%table_versions)
}

#----------------------------------------------------------------------
sub update_table_versions
{
	my ($app, $settings_href, $latest_versions_href) = @_ ;

	my $table = 'versions' ;
	my $sql = "" ;

install/tpl/quartzpvr-install.pl  view on Meta::CPAN

#----------------------------------------------------------------------
sub update_table_channels
{
	my ($app, $settings_href, $existing_version, $latest_version) = @_ ;

	my $table = 'channels' ;
	if ($existing_version lt '1.01')

install/tpl/quartzpvr-install.pl  view on Meta::CPAN

		
	}
}

#----------------------------------------------------------------------
sub update_table_iplay
{
	my ($app, $settings_href, $existing_version, $latest_version) = @_ ;

	# no op
}

#----------------------------------------------------------------------
sub update_table_listings
{
	my ($app, $settings_href, $existing_version, $latest_version) = @_ ;

	# no op
}

#----------------------------------------------------------------------
sub update_table_multirec
{
	my ($app, $settings_href, $existing_version, $latest_version) = @_ ;

	my $table = 'multirec' ;
	if ($existing_version eq '0')

install/tpl/quartzpvr-install.pl  view on Meta::CPAN

		
	}
}

#----------------------------------------------------------------------
sub update_table_record
{
	my ($app, $settings_href, $existing_version, $latest_version) = @_ ;

	my $table = 'record' ;
	if ($existing_version eq '0')

install/tpl/quartzpvr-install.pl  view on Meta::CPAN

		
	}
}

#----------------------------------------------------------------------
sub update_table_recorded
{
	my ($app, $settings_href, $existing_version, $latest_version) = @_ ;

	my $table = 'recorded' ;
	if ($existing_version eq '0')

install/tpl/quartzpvr-install.pl  view on Meta::CPAN

		
	}
}

#----------------------------------------------------------------------
sub update_table_schedule
{
	my ($app, $settings_href, $existing_version, $latest_version) = @_ ;

	my $table = 'schedule' ;
	if ($existing_version eq '0')

 view release on metacpan or  search on metacpan

plib/Makeutils.pm  view on Meta::CPAN

		update_manifest() ;
	}	
}

##-------------------------------------------------------------------------------------------
sub update_manifest
{
	## Read file
	my %manifest ;
	my $line ;
	open my $fh, "<MANIFEST" or die "Error: Unable to read MANIFEST file" ;

 view release on metacpan or  search on metacpan

plib/Makeutils.pm  view on Meta::CPAN

		update_manifest() ;
	}	
}

##-------------------------------------------------------------------------------------------
sub update_manifest
{
	## Read file
	my %manifest ;
	my $line ;
	open my $fh, "<MANIFEST" or die "Error: Unable to read MANIFEST file" ;

 view release on metacpan or  search on metacpan

lib/Linux/LVM2.pm  view on Meta::CPAN

    # no lv found
    return;
}

sub update {
    my $self = shift;
    $self->_find_vgs( $self->vgs() );
    return 1;
}

 view release on metacpan or  search on metacpan

lib/Linux/Smaps.pm  view on Meta::CPAN

  return $I;
}

my ($cnt1, $fmt1)=(0);

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

  my $name;

  # this way one can use one object to loop through a list of processes like:

 view release on metacpan or  search on metacpan

lib/Liquibase/Git.pm  view on Meta::CPAN

  run_command(cmd => $self->liquibase_command_stem." update");
  run_command(cmd => 'echo PASSED');
}

sub update {
  my $self = shift;

  $self->retrieve_changeset_from_git;
  chdir $self->temp_dir;
  $self->dryrun;
  $self->wetrun;
}

sub updateSQL {
  my $self = shift;

  $self->retrieve_changeset_from_git;
  chdir $self->temp_dir;
  $self->dryrun;

 view release on metacpan or  search on metacpan

lib/List/PriorityQueue.pm  view on Meta::CPAN

		$lower = 0;
	}
	$self->unchecked_insert($payload, $new_prio, $lower, $upper);
}

sub update {
	my ($self, $payload, $prio) = @_;
	if (!defined($self->{prios}->{$payload})) {
		goto &unchecked_insert;
	} else {
		goto &unchecked_update;

 view release on metacpan or  search on metacpan

t/07_fixed_width.t  view on Meta::CPAN

is_deeply( [ @lines ], [ @expected ],
    "Got expected output after updating fixed-width records");


sub update_record {
    my $record = shift;
    my $template = 'A5A18A8A6AA8';
    my @rec  = unpack($template, $record);
    $rec[0] =~ s/^0+//;
    my ($acctno, %values, $result);

 view release on metacpan or  search on metacpan

lib/Lithium/WebDriver.pm  view on Meta::CPAN

		}
	}
	return $self->{window_list};
}

sub update_windows
{
	my ($self) = @_;
	$self->_window_id_list();
}

 view release on metacpan or  search on metacpan

lib/LittleORM/Filter/Update.pm  view on Meta::CPAN

package LittleORM::Filter;

# update related subs moved here to keep module file size from growing
# too much

sub update
{
	my $self = shift;

	assert( scalar @{ $self -> joined_tables() } == 0,
		'update is not defined for filter with joined tables' );

 view release on metacpan or  search on metacpan

internal/deprecate_codes  view on Meta::CPAN

############################################################################
# UPDATE_MODULE
############################################################################

sub update_retired {
   my($type)  = @_;
   my $module = $mod_list{$type};

   foreach my $codeset (keys %{ $ALL_CODESETS{$type}{'codesets'} }) {
      foreach my $code (keys %{ $prev{$type}{$codeset}{'code'} }) {

 view release on metacpan or  search on metacpan

bin/lm_gui  view on Meta::CPAN

   } elsif ($frame eq 'manage_set') {
      manage_set_pack($err);
   }
}

sub update_window {
   my $geometry;
   $geometry .= "$data{x}$data{y}";
   $main_window->geometry($geometry);
   $main_window->update;
   $main_window->deiconify;

 view release on metacpan or  search on metacpan

lib/Log/Any/Progress.pm  view on Meta::CPAN

emitted with summary statistics, and subsequent calls to C<update>
will have no effect.

=cut

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

    if (defined $current_iteration) {
        $self->{_current_iteration} = $current_iteration;

 view release on metacpan or  search on metacpan

CPAN/MakeMaker.pm  view on Meta::CPAN

Please pass a VERSION parameter to the WriteMakefile function in Makefile.PL.
END
    return $VERSION;
}

sub update_manifest {
    my ($manifest, $manifest_path, $relative_path) = read_manifest();
    my $manifest_changed = 0;

    my %manifest;
    for (@$manifest) {

 view release on metacpan or  search on metacpan

lib/Log/Report/Lexicon/POT.pm  view on Meta::CPAN

	$header->msgstr(0, $text);
	$content;
}


sub updated(;$)
{	my $self = shift;
	my $date = shift || _now;
	$self->header('PO-Revision-Date', $date);
	$date;
}

 view release on metacpan or  search on metacpan

lib/Log/Report/Domain.pm  view on Meta::CPAN

	$self->{LRD_ctxt_def} = $cr->needDecode(set => @_);
}


sub updateContext(@)
{	my $self = shift;
	my $cr   = $self->contextRules  # ignore context if no rules given
		or return;

	my $rules = $cr->needDecode(update => @_);

 view release on metacpan or  search on metacpan

lib/Log/Saftpresse/Slurp.pm  view on Meta::CPAN

	default => 'Log::Saftpresse::Input::',
);

has 'io_select' => ( is => 'rw', isa => 'Maybe[IO::Select]' );

sub update_io_select {
	my $self = shift;
	my $s = IO::Select->new;
	foreach my $plugin ( @{$self->plugins} ) {
		$s->add( $plugin->io_handles );
	}

 view release on metacpan or  search on metacpan

lib/Log/Syslog/Fast/PP.pm  view on Meta::CPAN

    eval { $self->set_receiver($proto, $hostname, $port) };
    die "Error in ->new: $@" if $@;
    return $self;
}

sub update_prefix {
    my $self = shift;
    my $t = shift;

    $self->[LAST_TIME] = $t;

 view release on metacpan or  search on metacpan

Simple.pm  view on Meta::CPAN

     $self->unlock();
    }
    $self->update_history($msg);
  }
  
  sub update_history{
    my($self,$msg)=@_;
    push @HISTORY,$msg;
  }

  sub retrieve_history{

 view release on metacpan or  search on metacpan

lib/LucyX/Simple.pm  view on Meta::CPAN

    Exception::Simple->throw('no document') if ( !$document );

    $self->_indexer->add_doc( $document );
}

sub update_or_create{
    my ( $self, $document, $pk ) = @_;

    Exception::Simple->throw('no document') if !$document;
    $pk ||= 'id';
    my $pv = $document->{ $pk };

 view release on metacpan or  search on metacpan

lib/Lufs/Svn.pm  view on Meta::CPAN

sub release {
	my $self = shift;
	$self->commit($_[0]);
}

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

sub checkout {

 view release on metacpan or  search on metacpan

lib/MARC/BBMARC.pm  view on Meta::CPAN

Prompts for updated record file.
Prints running count of records based on counting_print function. Works only with USMARC input files.

=cut

sub updated_record_array {

	use MARC::File::USMARC;
	my @updatedrecarray;
####################################
# To do: test abstracted input file call ##

lib/MARC/BBMARC.pm  view on Meta::CPAN

Reduce memory usage, probably by learning how to tie hash to file instead of storing everything in memory.

=cut

sub updated_record_hash {

	use MARC::Batch;
	my %updatedrechash;

	#retrieve file name if one was passed

 view release on metacpan or  search on metacpan

lib/MARC/File/MARCMaker.pm  view on Meta::CPAN

leader (the length) will be invalid.  This function updates the
leader with the correct length of the record as it would be if
written out to a file.


sub update_leader() { #from USMARC
        my $self = shift;

        my (undef,undef,$reclen,$baseaddress) = $self->_build_tag_directory();

        $self->_set_leader_lengths( $reclen, $baseaddress );

 view release on metacpan or  search on metacpan

lib/MARC/Field.pm  view on Meta::CPAN

Returns the number of items modified.

=cut

sub update {
    my $self = shift;

    ## tags 000 - 009 don't have indicators or subfields
    if ( $self->is_control_field ) {
        $self->{_data} = shift;

 view release on metacpan or  search on metacpan

MARC.pm  view on Meta::CPAN

# untouched unless a new field needs to be created, in which case they
# are left blank.

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

sub updatefirst { # rec
    my $marc = shift || return;
    my $template = shift;
    return unless (ref($template) eq "HASH");
    return unless (@_);
    return if (defined $template->{'value'});

MARC.pm  view on Meta::CPAN

# like the output of getfields(), and replaces/creates the field
# data. It assumes that it should remove the fields with the first tag
# in the fieldrefs. It calls rebuild_map() if $do_rebuild_map.

####################################################################
sub updatefields { # rec
    my $marc = shift || return;
    my $template = shift;

    my $rafieldrefs = shift;
    my $recnum = $template->{'record'};

MARC.pm  view on Meta::CPAN

# updaterecord() takes an array of key/value pairs, formatted like #
# the output of getupdate(), and replaces/creates the field data.  #
# For repeated tags, a "\036" element is used to delimit data into #
# separate addfield() commands.                                    #
####################################################################
sub updaterecord {
    my $marc = shift || return;
    my $template = shift;
    return unless (ref($template) eq "HASH");
    return unless (@_);
    return if (defined $template->{'value'});

MARC.pm  view on Meta::CPAN

# untouched unless a new field needs to be created, in which case they
# are left blank.

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

sub updatefirst { # rec
    my $marcrec = shift || return;
    my $template = shift;
    return unless (ref($template) eq "HASH");
    return unless (@_);
    return if (defined $template->{'value'});

MARC.pm  view on Meta::CPAN

# like the output of getfields(), and replaces/creates the field
# data. It assumes that it should remove the fields with the first tag
# in the fieldrefs. It calls rebuild_map() if $do_rebuild_map.

####################################################################
sub updatefields { # rec
    my $marcrec = shift || return;
    my $template = shift;

    my $do_rebuild_map = $template->{'rebuild_map'};
    my $tag = $template->{'field'};