view release on metacpan or  search on metacpan

lib/Kwiki/HatenaAuth.pm  view on Meta::CPAN

sub sort_order_hook {
    my $hook = pop;
    return $hook->returned, 'edit_by_icon';
}

sub update_hook {
    return unless ref($self->hub->users->current) eq 'Kwiki::HatenaAuth';
    my $meta = $self->hub->pages->current->metadata;
    $meta->edit_by_icon($self->hub->users->current->thumbnail_url);
}

 view release on metacpan or  search on metacpan

lib/Kwiki/Notify/IRC.pm  view on Meta::CPAN

sub register {
    my $registry = shift;
    $registry->add( hook => 'page:store', post => 'update' );
}

sub update {
    no warnings 'once';    # i use package variables below
    require POE::Component::IKC::ClientLite;
    my $remote = POE::Component::IKC::ClientLite::create_ikc_client(
        port    => $self->hub->config->notify_irc_daemon_port,
        ip      => $self->hub->config->notify_irc_daemon_host,

lib/Kwiki/Notify/IRC.pm  view on Meta::CPAN

    err "unhandled $event";
    err "  - $_" foreach @$args;
    return 0;
}

sub update
{
    my ( $kernel, $heap, $page ) = @_[ KERNEL, HEAP, ARG0 ];
    eval {
        my $msg = sprintf( 'action update: %s by %s',
            $page->{title}, $page->{metadata}{edit_by} );

 view release on metacpan or  search on metacpan

lib/Kwiki/Purple.pm  view on Meta::CPAN

             qq(<${element}${level}${nid_value}>);
         };
    }
}

sub update_nids {
    my $hook = pop;
    my $page = $self;
    $self = $self->hub->purple;
    $self->update($page);
}

sub update {
    my $page = shift;
    my $formatter = $self->hub->formatter;
    my %hooks;
    unless ($self->hooked) {
        $self->hooked(1);

 view release on metacpan or  search on metacpan

lib/Kwiki/Search/Plucene.pm  view on Meta::CPAN

sub index_path {
    $self->plugin_directory . '/plucene_index';
}

sub update_index {
    $self->hub->load_class('search')->update_page($self);
}

sub update_page {
    my $page = shift;
    $self->plucy->delete_document($page->id,$page->content)
        if(-d $self->index_path);
    $self->plucy->index_document($page->id,$page->content);
}

 view release on metacpan or  search on metacpan

lib/Kwiki/Search/Spotlight.pm  view on Meta::CPAN

    super;
    my $reg = shift;
    $reg->add(hook => 'page:store', post => 'update_index');
}

sub update_index {
    my $search = $self->hub->search;
    my $page_name = $self->id;
    my $dir = $search->plugin_directory;
    io($dir)->mkpath;
    system "/bin/cp database/${page_name} ${dir}/${page_name}.txt";

 view release on metacpan or  search on metacpan

t/lib/Kwiki/SimpleHook.pm  view on Meta::CPAN

    my $registry = shift;
    $registry->add(hook => 'page:store', pre => 'update_content');
    super;
}

sub update_content {
    my $page = $self;
    my $hook = pop;
    $page->content($page->content . "\n\nSimple Hook Hooks Again!\n");
}

 view release on metacpan or  search on metacpan

lib/Kwiki/TypeKey.pm  view on Meta::CPAN

sub sort_order_hook {
    my $hook = pop;
    return $hook->returned, 'edit_by_icon';
}

sub update_hook {
    my $meta = $self->hub->pages->current->metadata;
    $meta->edit_by_icon($self->hub->users->current->icon);
}

sub return_typekey {

 view release on metacpan or  search on metacpan

lib/LCC.pm  view on Meta::CPAN

#-------------------------------------------------------------------------

#  IN: 1 instantiated LCC object

sub update { shift->_backend_method( 'update',@_ ) } #update

#-------------------------------------------------------------------------

#  IN: 1 instantiated object
#      2 reference to hash with provider credentials (id and password)
#      3 handle to write XML to or reference to list of handles to write to
#        (default: just return the resulting XML)
# OUT: 1 resulting XML

sub update_notification_xml {

# Obtain the object
# Obtain the credentials
# Obtain the handles to write to
# Initialize the XML

 view release on metacpan or  search on metacpan

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

    $self->version($dev_version);

    return $self->version;
}

sub update_release {
    my ($self) = @_;

    my $release = $self->release;

    if ( !defined $release ) {

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

    $self->release($release);

    return;
}

sub update_date {
    my ($self) = @_;

    my $now = DateTime->now->strftime('%d/%m/%y %T');

    $self->date($now);

    return;
}

sub update_major {
    my ($self) = @_;
    return $self->_update_version('major');
}

sub update_minor {
    my ($self) = @_;
    return $self->_update_version('minor');
}

sub update_micro {
    my ($self) = @_;
    return $self->_update_version('micro');
}

sub _update_version {

 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;

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

    }

    return;
}

sub update_lcfg_changelog {
    my ( $logfile, $options ) = @_;
    $options //= {};

    $options->{date} ||= DateTime->now->ymd;

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

# These update_*_changelog subroutines are also used externally from
# places which do not have access to the VCS object so they are not
# class methods.

sub update_debian_changelog {
    my ( $logfile, $options ) = @_;
    $options //= {};

    $options->{urgency}      ||= 'low';
    $options->{distribution} ||= 'unstable';

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

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

    }
    
    $axis->try_modify_min_max(%extreme);
}

sub update_all_axis {
    my $self = shift;
    $self->update_axis($_) foreach keys %{ $self->axes };
}

sub request_model_render {

 view release on metacpan or  search on metacpan

Util/Util.pm  view on Meta::CPAN

);

# autoload declarations

sub cache_is_valid;
sub update_cache;
sub upd_cache;
sub daemon2_cache;
sub share_open;
sub ex_open;
sub close_file;

Util/Util.pm  view on Meta::CPAN

  returns:	true on success
		false if failed

=cut

sub update_cache {
  my ($lnf,$htm,$sht) = @_;
  return undef unless exists $lnf->{html_cache_file};
  @_ = ($lnf->{html_cache_file},'',$htm,$sht);
  goto &upd_cache;
}

 view release on metacpan or  search on metacpan

lib/Lab/Moose/Instrument/AttoCube_AMC.pm  view on Meta::CPAN

	return $response;
}


sub updateOffsets {
	my ($self, $offset_axis0, $offset_axis1, $offset_axis2, %args) = validated_list(
		offset_axis0	=> {optional => 0,},
		offset_axis1	=> {optional => 0,},
		offset_axis2	=> {optional => 0,},
	);

lib/Lab/Moose/Instrument/AttoCube_AMC.pm  view on Meta::CPAN

	return $response;
}


sub updateTimeFromInternet {
	my $self = shift;

	my $response = $self->request(method => 'com.attocube.system.updateTimeFromInternet');

	$self->handle_error($response);

 view release on metacpan or  search on metacpan

lib/LabKey/Query.pm  view on Meta::CPAN

	-useragent => an instance of LWP::UserAgent (if not provided, a new instance will be created)
	-timeout => timeout in seconds (used when creating a new LWP::UserAgent)

=cut

sub updateRows {
	my %args = @_;

	my @required = ('-queryName', '-schemaName', '-rows');
	_checkRequiredParams(\%args, \@required);

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

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

    print pack("c", 0x08) x $diff;
    # restore cursor
  }
}

sub update {
}

#sub find_prog {
#  foreach ("/bin/", "/usr/bin/") {
#    my $fn = $_ . $_[0];

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

    Language::Zcode::Runtime::IO::columns($s_columns);
    $s_upper_lines = 0;
    return $self;
}

sub update {
  $OUT->Flush();
}

sub set_version {
  # called by the game

 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

codingstyle.md  view on Meta::CPAN

sub validateSession { ... }
sub createCookie { ... }
sub handleChildStart { ... }
sub getSettings { ... }
sub checkDBH { ... }
sub updateConfig { ... }
sub newClacksFromConfig { ... }
```

**Single-word function names:**
```perl

 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) {