view release on metacpan or  search on metacpan

Tree/Numbered/DB.pm  view on Meta::CPAN

    }
    return $deleted;
}

# <update> updates the database when something changes.
sub update {
    my $self = shift;
    my @values = (map { $self->getField($_) } 
		  @{ $self->getFieldNames } );
    $self->{Statements}->{update}->execute(@values, $self->getNumber);
}

 view release on metacpan or  search on metacpan

lib/Jifty/DBI/Handle.pm  view on Meta::CPAN

might have C<< value => 'PASSWORD(string)' >>, by setting C<is_sql_function> to true,
that string will be inserted into the query directly rather then as a binding. 

=cut

sub update_record_value {
    my $self = shift;
    my %args = (
        table           => undef,
        column          => undef,
        is_sql_function => undef,

 view release on metacpan or  search on metacpan

lib/Job/Machine/DB.pm  view on Meta::CPAN

	my $retval = $sth->fetch()->[0];
	$sth->finish();
	return $retval;
}

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

 view release on metacpan or  search on metacpan

lib/Jorge/DBEntity.pm  view on Meta::CPAN

    else {
        return 0;
    }
}

sub update {
    my $self = shift;

    my @fields     = @{ $self->_fields->[0] };
    my %fields     = %{ $self->_fields->[1] };
    my $table_name = $self->_fields->[2];

 view release on metacpan or  search on metacpan

inc/My/Builder.pm  view on Meta::CPAN

    or do {
        print STDERR $new_actions_src;
        die $@;
    };

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

    my $action = $self->current_action();

    # Update include_dirs and extra_linker_flags to find the Judy.h

 view release on metacpan or  search on metacpan

kgsueme/game.pl  view on Meta::CPAN

   $self->{rules_inlay}->refresh;
}

### BOARD DISPLAY ###########################################################

sub update_timers {
   my ($self, $timers) = @_;

   my $running = $self->{showmove} == @{$self->{path}} && !$self->{teacher};

   for my $colour (COLOUR_BLACK, COLOUR_WHITE) {

 view release on metacpan or  search on metacpan

lib/Karas.pm  view on Meta::CPAN

    } else {
        return undef;
    }
}

sub update {
    my $self = shift;
    if (UNIVERSAL::isa($_[0], 'Karas::Row')) {
        my ($row, $set) = @_;
        $set ||= +{};
        $set = +{ %{$row->get_dirty_columns()}, %$set };

 view release on metacpan or  search on metacpan

lib/Kelp/Manual.pod  view on Meta::CPAN

=head4 Explicit

    $r->add( "/update/:id", "update" );

    # Later
    sub update {
        my ( $self, $id ) = @_;
        # Do something with $id
    }

=head4 Optional

 view release on metacpan or  search on metacpan

lib/Kephra/App/SearchBar.pm  view on Meta::CPAN

sub line_nr_around {
    my ($self) = @_;
    my $line_nr = $self->GetCurrentLine
}

sub update_flags {
    my ($self) = @_;
    $self->{'flags'} = (&Wx::wxSTC_FIND_MATCHCASE * $self->{'case'}->GetValue )
                     | (&Wx::wxSTC_FIND_WHOLEWORD * $self->{'word'}->GetValue )
                     | (&Wx::wxSTC_FIND_WORDSTART * $self->{'start'}->GetValue)
                     | (&Wx::wxSTC_FIND_REGEXP    * $self->{'regex'}->GetValue);

 view release on metacpan or  search on metacpan

lib/Keystone/Resolver/DB/Object.pm  view on Meta::CPAN

    return ($linkclass, $linkto, $linkid, $linkfield);
}


# Returns the number of fields modified, dies on error
sub update {
    my $this = shift();
    my(%maybe_data) = @_;

    my %data;
    foreach my $key (keys %maybe_data) {

 view release on metacpan or  search on metacpan

lib/Khonsu/Syntax.pm  view on Meta::CPAN

	}

	return $file;
}

sub update_highlighting {
	my ($self, %highlighting) = @_;
	my $highlight = $self->highlight;
	$highlight = {%{$highlight}, %highlighting};
	$self->highlight($highlight);
	return $self;

 view release on metacpan or  search on metacpan

lib/DBIx/Class/KiokuDB.pm  view on Meta::CPAN

    $g->commit;

    return $ret;
}

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

    my $dir = $self->result_source->schema->kiokudb_handle;
    my $lo = $dir->live_objects;

 view release on metacpan or  search on metacpan

lib/KiokuDB.pm  view on Meta::CPAN

}

sub insert         { shift->_insert( 1, @_ ) }
sub insert_nonroot { shift->_insert( 0, @_ ) }

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

    my @objects = $self->_register(@args);

    my $l = $self->live_objects;

 view release on metacpan or  search on metacpan

lib/Koha/Contrib/Mirabel.pm  view on Meta::CPAN

    return unless $record;
    return MARC::Moose::Record::new_from($record, 'Legacy');
}


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

    say '_' x 40, " #$biblionumber" if $self->verbose;

    my $record = $self->get_biblio($biblionumber);

 view release on metacpan or  search on metacpan

lib/Konstrukt/Plugin/blog/DBI.pm  view on Meta::CPAN

=item * $update      - Update the publication date to "now"

=back

=cut
sub update_entry {
	my ($self, $id, $title, $description, $content, $private, $update) = @_;
	
	my $dbh = $Konstrukt::DBI->get_connection(@{$self->{db_settings}}) or return undef;
	
	#quoting

 view release on metacpan or  search on metacpan

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

    $entry->add_link($link_edit);

    return $entry;
}

sub update_page {
    my $page = shift;
    my $method = $self->server->request_method;
    my $entry = eval { $self->server->atom_body };

    if (!$entry) {

 view release on metacpan or  search on metacpan

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

                   template => 'attachments_widget.html',
                   show_for => [ 'display', 'edit' ],
                  );
}

sub update_metadata {
   # Updates the modification time of the page.
   my $page = $self->pages->current;
   $page->metadata->update->store;
}

 view release on metacpan or  search on metacpan

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

    $self = $self->hub->backlinks;
    $self->clean_destination_links($page); # redundant but tidy
    $self->clean_source_links($page);
}

sub update_hook {
    my $page = $self;
    my $hook = pop;
    $self = $self->hub->backlinks;
    # save current as we need to manipulate within update and below
    my $current = $self->hub->pages->current;
    $self->update($page);
    $self->hub->pages->current($current);
}

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

 view release on metacpan or  search on metacpan

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

    } sort {lc($a) cmp lc($b)} keys %{$user_db};
    $user_db->close;
    $self->render_screen(pages => \@pages);
}

sub update {
    my $hook = pop;
    my ($returned) = $hook->returned;
    return $returned unless $returned eq '1';
    $self = $self->hub->guest_book;
    my $preference = shift;

 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,

 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/Kwiki/Command.pm  view on Meta::CPAN

sub handle_remove {
    $self->update_plugins('-', @_);
}

sub update_plugins {
    die "This operation must be performed inside a Kwiki installation directory"
      unless -f $self->hub->config->plugins_file;
    my $mode = shift;
    return $self->usage unless @_;
    my $plugins_file = $self->hub->config->plugins_file;

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