view release on metacpan or  search on metacpan

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

455
456
457
458
459
460
461
462
463
464
465
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,

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

499
500
501
502
503
504
505
506
507
508
509
 
If IS_SQL is set, don't quote the NEW_VALUE.
 
=cut
 
sub update_table_value {
    my $self = shift;
 
    ## This is just a wrapper to update_record_value().
    my %args = ();
    $args{'table'}           = shift;

 view release on metacpan or  search on metacpan

lib/Jifty/Config.pm  view on Meta::CPAN

595
596
597
598
599
600
601
602
603
604
605
Takes an application's configuration as a hashref.  Right now, it just sets up
plugins that match an older jifty version's defaults
 
=cut
 
sub update_config {
    my $self = shift;
    my $config = shift;
 
    my $version = $config->{'framework'}->{'ConfigFileVersion'};
    my $plugins = ($config->{'framework'}->{'Plugins'} ||= []);

 view release on metacpan or  search on metacpan

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

427
428
429
430
431
432
433
434
435
436
        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

149
150
151
152
153
154
155
156
157
158
159
    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

31
32
33
34
35
36
37
38
39
40
41
    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

548
549
550
551
552
553
554
555
556
557
558
   $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) {

kgsueme/game.pl  view on Meta::CPAN

576
577
578
579
580
581
582
583
584
585
586
 
   $self->update_timers ($self->{timers})
      if $self->{showmove} == @{$self->{path}};
}
 
sub update_cursor {
   my ($self) = @_;
 
   return unless $self->{cur_board};
 
   if ($self->{rules}{ruleset} == RULESET_JAPANESE) {

kgsueme/game.pl  view on Meta::CPAN

672
673
674
675
676
677
678
679
680
681
682
      $self->{board}->set (cursor => undef);
      #TODO# # implement coordinate-grabbing
   }
}
 
sub update_board {
   my ($self) = @_;
 
   return unless $self->{path};
 
   $self->{board_label}->set_text ("Move " . ($self->{showmove} - 1));

 view release on metacpan or  search on metacpan

lib/Karas.pm  view on Meta::CPAN

275
276
277
278
279
280
281
282
283
284
285
    } 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

299
300
301
302
303
304
305
306
307
308
309
=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

214
215
216
217
218
219
220
221
222
223
224
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

282
283
284
285
286
287
288
289
290
291
292
    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

107
108
109
110
111
112
113
114
115
116
117
        }
 
        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

47
48
49
50
51
52
53
54
55
56
    $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

494
495
496
497
498
499
500
501
502
503
504
}
 
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

60
61
62
63
64
65
66
67
68
69
70
    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

133
134
135
136
137
138
139
140
141
142
143
=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

183
184
185
186
187
188
189
190
191
192
193
    $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

32
33
34
35
36
37
38
39
40
41
                   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

72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
    $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

23
24
25
26
27
28
29
30
31
32
33
    } 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

27
28
29
30
31
32
33
34
35
36
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

15
16
17
18
19
20
21
22
23
24
25
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

166
167
168
169
170
171
172
173
174
175
176
    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

128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
             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

30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
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

6
7
8
9
10
11
12
13
14
15
16
    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

8
9
10
11
12
13
14
15
16
17
    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

25
26
27
28
29
30
31
32
33
34
35
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

142
143
144
145
146
147
148
149
150
151
152
 
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

454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
 
#-------------------------------------------------------------------------
 
#  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

463
464
465
466
467
468
469
470
471
472
473
    $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

480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
    $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

153
154
155
156
157
158
159
160
161
162
163
    $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

200
201
202
203
204
205
206
207
208
209
    }
 
    return;
}
 
sub update_lcfg_changelog {
    my ( $logfile, $options ) = @_;
    $options //= {};
 
    $options->{date} ||= DateTime->now->ymd;

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

249
250
251
252
253
254
255
256
257
258
259
 
# 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';