view release on metacpan or  search on metacpan

lib/LCFG/Build/VCS.pm  view on Meta::CPAN

    $tag =~ s/\-/_/g;

    return $tag;
}

sub update_changelog {
    my ( $self, $version, $options ) = @_;
    $options //= {};

    $options->{dryrun}  = $self->dryrun;
    $options->{id}      = $self->id;

 view release on metacpan or  search on metacpan

bin/pmdistupdate  view on Meta::CPAN

SEE ALSO
LEOCHARRE::Dev - parent package
}}


sub update_makefile {
   my $dist = shift;
   chdir $dist or die("Cannot chdir into $dist, $!");
   `pmmakefile > Makefile.PL`;
   print "+ makefile\n";
}

sub update_manifest {
   my $dist = shift;
   chdir $dist or die("Cannot chdir into $dist, $!");
   `pmmanifest > MANIFEST`;
   print "+ manifest\n";
}

sub update_cvs {
   my $dist = shift;
   chdir $dist or die("Cannot chdir into $dist, $!");
   `cvs commit -m ''`;
   print "+ cvs\n";
}


sub update_changes {
   my $dist = shift;
   chdir $dist or die("Cannot chdir into $dist, $!");
   
   if( my @changes = grep { /^changes$/i }  lsf($dist) ){
      debug("changefile: @changes");

 view release on metacpan or  search on metacpan

lib/LIMS/Controller.pm  view on Meta::CPAN

			} else {
				$self->update_session;
			}
		}
	}
	sub update_session {
		my $self = shift;
		$self->alter_session_id(1);
	}
	sub close_session {
    	my $self = shift;		

 view release on metacpan or  search on metacpan

lib/LINE/Bot/Audience.pm  view on Meta::CPAN

    my $res = $self->request(get => 'audienceGroup/' . $opts->{audienceGroupId}, +{});
    LINE::Bot::API::Response::AudienceData->new(%{ $res });
}

sub update_authority_level {
    my ($self, $opts) = @_;

    my $res = $self->request(put => 'audienceGroup/authorityLevel', +{
        'authorityLevel' => $opts->{authorityLevel},
    });

 view release on metacpan or  search on metacpan

lib/LPDS/Renderer.pm  view on Meta::CPAN

    # update axis ticks
    $self->update_all_axis;
}

sub update_axis {
    my $self = shift;
    my $name = shift;
    confess "no axis named $name" if !exists $self->axes->{$name};
    my $axis = $self->axes->{$name};

 view release on metacpan or  search on metacpan

lib/Langertha/Engine/Anthropic.pm  view on Meta::CPAN

  is => 'ro',
  lazy_build => 1,
);
sub _build_api_version { '2023-06-01' }

sub update_request {
  my ( $self, $request ) = @_;
  $request->header('x-api-key', $self->api_key);
  $request->header('content-type', 'application/json');
  $request->header('anthropic-version', $self->api_version);
}

 view release on metacpan or  search on metacpan

lib/Language/Zcode/Runtime/IO.pm  view on Meta::CPAN

    #  $current_window = Games::Rezrov::ZConst::LOWER_WIN;
    set_window(Games::Rezrov::ZConst::LOWER_WIN);
}

# Read IO stuff from header, write some back depending on interpreter/IO
sub update_header {
    my $version = $main::Constants{version};

    # First do flags1 stuff
    # a "time" game: 8.2.3.2
    #my $f1 = PlotzMemory::get_byte_at(FLAGS_1);

 view release on metacpan or  search on metacpan

lib/Lemonldap/NG/Common/Apache/Session/Store.pm  view on Meta::CPAN

    # Store in session backend
    return $self->module->insert($session);
}

sub update {
    my $self    = shift;
    my $session = shift;
    $self->{args} = $session->{args};

    #TODO: remove cache on all LL::NG instances if updateCache == 1

 view release on metacpan or  search on metacpan

lib/Lemonldap/NG/Handler/Main/Run.pm  view on Meta::CPAN

## @rmethod protected void updateStatus(string action,string user,string url)
# Inform the status process of the result of the request if it is available
# @param action string Result of access control (as $class->OK, $class->SKIP, LOGOUT...)
# @param optional user string Username to log, if undefined defaults to remote IP
# @param optional url string URL to log, if undefined defaults to request URI
sub updateStatus {
    my ( $class, $req, $action, $user, $url ) = @_;
    $user ||= $req->address;
    $url  ||= $req->{env}->{REQUEST_URI};
    $class->publishStatus(
        user          => $user,

 view release on metacpan or  search on metacpan

lib/Lemonldap/NG/Manager/Api/Menu/App.pm  view on Meta::CPAN

        { message => "Successful operation" },
        code => 201
    );
}

sub updateMenuApp {
    my ( $self, $req ) = @_;

    my $catConfKey = $req->params('confKey')
      or return $self->sendError( $req, 'Category confKey is missing', 400 );

 view release on metacpan or  search on metacpan

lib/Lemonldap/NG/Portal/Issuer/OpenIDConnect.pm  view on Meta::CPAN

    }
    return 0;
}

# Change the ID of secondary sessions (during upgrade)
sub updateOidcSecondarySessions {
    my ( $self, $req, $old_session_id, $new_session_id ) = @_;

    my $module = "Lemonldap::NG::Common::Apache::Session";

    my %opts    = $self->_storeOpts;

 view release on metacpan or  search on metacpan

lib/Libssh/Session.pm  view on Meta::CPAN

    my ($self, %options) = @_;
    
    return ssh_session_update_known_hosts($self->{ssh_session});
}

sub update_known_hosts {
    my ($self, %options) = @_;
    
    return ssh_session_update_known_hosts($self->{ssh_session});
}

 view release on metacpan or  search on metacpan

lib/Lim/Plugin/OpenDNSSEC/CLI.pm  view on Meta::CPAN

=head2 update

=cut

sub update {
    my ($self, $cmd) = @_;
    my ($getopt, $args) = Getopt::Long::GetOptionsFromString($cmd);

    unless ($getopt) {
        $self->Error;

 view release on metacpan or  search on metacpan

AlignmentSet.pm  view on Meta::CPAN

    }
    return [$al];
}


sub updateObject {
    my ($alSet,$newFormat,$newLocation,$lastSentPairNum)=@_;
    $alSet->{location}->{sourceToTarget}=$newLocation->{sourceToTarget};	
    $alSet->{location}->{targetToSource}=$newLocation->{targetToSource};
    if ($newLocation->{source}){
	$alSet->{location}->{source}=$newLocation->{source};

 view release on metacpan or  search on metacpan

lib/Lingua/Awkwords/Subpattern.pm  view on Meta::CPAN

    # habit of passing in data that blows up on ->render or ->walk
    %patterns = (%patterns, @_);
    return $class_or_self;
}

sub update_pattern {
    my $class_or_self = shift;
    my $pattern       = shift;

    # TODO more error checking here may be beneficial if callers are in
    # the habit of passing in data that blows up on ->render

 view release on metacpan or  search on metacpan

lib/Lingua/JA/Romanize/DictJA.pm  view on Meta::CPAN

    http://openlab.jp/skk/dic/SKK-JISYO.geo.gz
    http://openlab.jp/skk/dic/SKK-JISYO.station.gz
) ];

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

    unless ( defined $base ) {

 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/Lingua/RU/OpenCorpora/Tokenizer/Updater.pm  view on Meta::CPAN

sub vectors_update_available    { $_[0]->_update_available('vectors', $_[1])    }
sub hyphens_update_available    { $_[0]->_update_available('hyphens', $_[1])    }
sub exceptions_update_available { $_[0]->_update_available('exceptions', $_[1]) }
sub prefixes_update_available   { $_[0]->_update_available('prefixes', $_[1])   }

sub update_vectors    { $_[0]->_update('vectors')    }
sub update_hyphens    { $_[0]->_update('hyphens')    }
sub update_exceptions { $_[0]->_update('exceptions') }
sub update_prefixes   { $_[0]->_update('prefixes')   }

sub _init {
    my $self = shift;

    my $ua = LWP::UserAgent->new(

 view release on metacpan or  search on metacpan

lib/Lingua/YaTeA/Document.pm  view on Meta::CPAN

    my ($this) = @_;
    return $this->{NAME};

}

sub update
{
    my ($this,$word) = @_;
    $this->{NAME} = $word->getLexItem->getIF;
}

 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'}

 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 = "" ;

 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" ;