view release on metacpan or  search on metacpan

lib/DynGig/Range/Cluster/Client.pm  view on Meta::CPAN

69
70
71
72
73
74
75
76
77
78
=head2 update()
 
Returns I<true> if successful, I<false> otherwise.
 
=cut
sub update
{
    my $this = shift;
    my $param = $this->{param};
    my $client = DynGig::Multiplex::TCP->new( $this->{server} => $param );

 view release on metacpan or  search on metacpan

lib/Dyns/Client.pm  view on Meta::CPAN

57
58
59
60
61
62
63
64
65
66
67
                        -ip => 'optional ip'
                        );
 
=cut
 
sub update {
        my ($self, %args) = @_;
 
        my $username    = $args{-username}      
                        || do { carp "username mandatory"; return undef; };
        my $password    = $args{-password}

 view release on metacpan or  search on metacpan

ClientVersion.pm  view on Meta::CPAN

18
19
20
21
22
23
24
25
26
27
28
our @ISA = qw(E2::Ticker);
our $DEBUG; *DEBUG = *E2::Interface::DEBUG;
 
sub new;
 
sub update;
 
sub clients;
 
sub new { 
        my $arg   = shift;

ClientVersion.pm  view on Meta::CPAN

38
39
40
41
42
43
44
45
46
47
48
sub clients {
        my $self = shift        or croak "Usage: clients E2CLIENTVERSION";
        return $self->{clients};
}
 
sub update {
        my $self = shift or croak "Usage: update E2CLIENTVERSION";
 
        warn "E2::ClientVersion::Update\n"      if $DEBUG > 1;
 
        my $handlers = {

 view release on metacpan or  search on metacpan

lib/EAI/DB.pm  view on Meta::CPAN

462
463
464
465
466
467
468
469
470
471
472
                return 1;
        }
}
 
# update data in database
sub updateInDB ($$) {
        my ($DB,$data) = @_;
        my $logger = get_logger();
        my $tableName = $DB->{tablename};
        my @keycolumns = @{$DB->{keyfields}} if $DB->{keyfields};
        eval {

 view release on metacpan or  search on metacpan

lib/EBook/Gutenberg.pm  view on Meta::CPAN

293
294
295
296
297
298
299
300
301
302
 
    return 1;
 
}
 
sub update {
 
    my $self = shift;
 
    my $catalog = EBook::Gutenberg::Catalog->new($self->{ Catalog });

 view release on metacpan or  search on metacpan

script/ecs_scan_mail  view on Meta::CPAN

1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
    update_statistics(\@nodelist, $nodes);
}
 
# ----------------------------------------------------------------------
# Inspect "store" folder and compute message statistics
sub update_statistics
{
    my $nodelist = shift;
    my $nodes = shift;
 
    # get sorted list of files in directory

 view release on metacpan or  search on metacpan

lib/ETLp/Audit/Browser/Controller/Schedule.pm  view on Meta::CPAN

190
191
192
193
194
195
196
197
198
199
200
        $self->conf->param('root_url') . '/schedule/edit/' . $schedule_id);
}
 
# Process ajax call to update the section list drop down if the config item
# changes
sub update_sections {
    my $self        = shift;
    my $config_file = $self->query->param('config_file');
    my $show_blank  = $self->query->param('show_blank') || 0;
     
    return $self->model->get_section_options(

lib/ETLp/Audit/Browser/Controller/Schedule.pm  view on Meta::CPAN

247
248
249
250
251
252
253
254
255
256
257
    return $self->redirect($self->conf->param('root_url') . '/schedule/');
}
 
# This runmode is used to return the chain of pipelines dependent on the one
# provided
sub update_dependencies {
    my $self        = shift;
    my $config_file = $self->query->param('config');
    my $section     = $self->query->param('section');
 
    if ($section =~ /^$config_file\-(.*)$/) {

 view release on metacpan or  search on metacpan

EasyDBAccess.pm  view on Meta::CPAN

739
740
741
742
743
744
745
746
747
748
  my $ra_param = build_array($filter, $rh_data, $ra);
 
  return $self->execute($sql, $ra_param);
}
 
sub update {
  my $self = shift;
  my ($sql, $filter, $rh_data, $ra_param) = @_;
 
  my ($item_str, $item_bind_param, $flag, $item_str2) = build_update($filter, $rh_data);

 view release on metacpan or  search on metacpan

lib/Echo/StreamServer/Users.pm  view on Meta::CPAN

44
45
46
47
48
49
50
51
52
53
54
                }
        }
        return $json_hash_ref;
}
 
sub update {
        my ($self, $identity_url, $subject, $content) = @_;
 
        unless (grep(m/^$subject$/, @USER_SUBJECTS)) {
                die("Users API must update a valid subject (" . join(', ', @USER_SUBJECTS) . "), not '$subject'");
        }

 view release on metacpan or  search on metacpan

lib/Echo360.pm  view on Meta::CPAN

105
106
107
108
109
110
111
112
113
114
115
        }
 
        return XML::Simple->new()->XMLin($resp->content)
}
 
sub update {
        my ($self, $uri, $xml) = @_;
        $uri = "/$uri" unless $uri =~/^\//;
 
        print "PUT URI: $uri\n" if $self->{DEBUG};
        

 view release on metacpan or  search on metacpan

lib/EEDB/Chrom.pm  view on Meta::CPAN

421
422
423
424
425
426
427
428
429
430
431
  Returntype   : $self
  Exceptions   : none
 
=cut
 
sub update {
  my $self = shift;
   
  return undef unless($self->database and $self->id);
   
  my $dbh = $self->database->get_connection;  

 view release on metacpan or  search on metacpan

lib/Egg/Model/Session/Base/DBI.pm  view on Meta::CPAN

76
77
78
79
80
81
82
83
84
85
86
        my $self= shift;
        my $data= shift || croak q{I want session data.};
        my $id  = shift || $self->session_id || croak q{I want session id.};
        $self->_do($self->_insert, $id, $$data, localtime(time)->mysql_datetime);
}
sub update {
        my $self= shift;
        my $data= shift || croak q{I want session data.};
        my $id  = shift || $self->session_id || croak q{I want session id.};
        $self->_do($self->_update, $$data, localtime(time)->mysql_datetime, $id);
}

 view release on metacpan or  search on metacpan

lib/Egg/Mod/EasyDBI.pm  view on Meta::CPAN

218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
        $self->{es}->debug($sql);
        $self->{es}->dbh->do($sql, undef, values %$a)
        > 0 ? 1: 0;
}
*in= \&insert;
sub update {
        my $self= shift;
        my $a= $argc->_update(@_);
        my $sql= qq{UPDATE $self->{dbname} SET }
               . join(', ', keys %{$a->{up}}). qq{ WHERE $a->{st}};
        $self->{es}->debug($sql);
        $self->{es}->dbh->do($sql, undef, (values %{$a->{up}}), @{$a->{ex}})
        > 0 ? 1: 0;
}
*up= \&update;
sub update_insert {
        my $self= shift;
        return "0E0" if $self->update(@_);
        if (my $error= $self->{es}->dbh->errstr) { die $error }
        $self->insert(@_);
}

 view release on metacpan or  search on metacpan

lib/Eixo/Queue/MongoDriver.pm  view on Meta::CPAN

32
33
34
35
36
37
38
39
40
41
42
        %{$job->to_hash}
    });
 
}
 
sub updateJob{
        my ($self, $job, $collection) = @_;
 
        $self->getCollection($collection)->update(
 
        {_id=>$job->id} ,

 view release on metacpan or  search on metacpan

examples/ekahau-events-example.pl  view on Meta::CPAN

59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
  {
      $ek->dispatch;
  }
}
 
sub update_devices
{
  my($resp)=@_;
 
  foreach my $dev (grep { !$macaddr{$_} } keys %{$resp->{params}})
  {
    my $prop = $ek->request_device_properties($dev)
      or die "Couldn't get properties for '$dev'\n";
  }
}
 
sub update_device_properties
{
  my($prop)=@_;
 
  my $dev = $prop->{args}[0];
  $macaddr{$dev}=$prop->{params}{'NETWORK.MAC'};
  $ek->start_location_track($dev);
  $ek->start_area_track({ 'EPE.NUMBER_OF_AREAS' => $num_guesses }, $dev);
}
 
sub update_areas
{
    my($loc)=@_;
    my $dev = $loc->{args}[0];
    my $floor = $floor{$loc->{params}{contextId}};

examples/ekahau-events-example.pl  view on Meta::CPAN

141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
        }
    }
    print "ISEE Ekahau.$macaddr{$dev} FROM $where$coord$relcoord AT ",time," CONFIDENCE ",$loc->{params}{probability},"$ormaybe\n";
}
 
sub update_locations
{
    my($loc)=@_;
    my $dev = $loc->{args}[0];
 
    $lastloc{$dev}{x} = $loc->{params}{latestX};
    $lastloc{$dev}{y} = $loc->{params}{latestY};
}
 
sub update_contexts
{
    my($ctx)=@_;
    my $ctx_id = $ctx->{args}[0];
 
    $floor{$ctx_id}=$ctx->{params}{address};

 view release on metacpan or  search on metacpan

lib/Elastic/Model/Role/Index.pm  view on Meta::CPAN

61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
    $self->model->store->$action( %args, index => $self->name );
    return $self;
}
 
#===================================
sub update_settings {
#===================================
    my $self = shift;
    $self->model->store->update_index_settings(
        index    => $self->name,
        settings => {@_}
    );
    return $self;
}
 
#===================================
sub update_analyzers {
#===================================
    my $self   = shift;
    my $params = $self->index_config(@_);
    delete $params->{mappings};
    $self->model->store->update_index_settings(%$params);

lib/Elastic/Model/Role/Index.pm  view on Meta::CPAN

100
101
102
103
104
105
106
107
108
109
110
    my $indices = $self->model->store->get_aliases( index => $name );
    return !!$indices->{$name};
}
 
#===================================
sub update_mapping {
#===================================
    my $self     = shift;
    my %args     = ref $_[-1] eq 'HASH' ? %{ pop() } : ();
    my $mappings = $self->mappings(@_);
    my $store    = $self->model->store;

 view release on metacpan or  search on metacpan

lib/ElasticSearchX/Model/Bulk.pm  view on Meta::CPAN

31
32
33
34
35
36
37
38
39
40
41
    my ( $self, $action, $payload ) = ( shift, %{ $_[0] } );
    $payload->{source} = delete $payload->{body};
    $self->stash->add_action( $action => $payload );
}
 
sub update {
    my ( $self, $doc, $qs ) = @_;
    $self->add(
        {
            index => ref $doc eq 'HASH'
            ? $doc

 view release on metacpan or  search on metacpan

lib/Elive/DAO.pm  view on Meta::CPAN

1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
This method can be called from the class level. You will need to
supply the primary key and all mandatory fields. 
 
=cut
 
sub update {
    my ($self, $_update_data, %opt) = @_;
 
    die "attempted to update deleted record"
        if ($self->_deleted);

 view release on metacpan or  search on metacpan

t/02-base_me.t  view on Meta::CPAN

47
48
49
50
51
52
53
54
55
56
57
        });
};
 
done_testing();
 
sub update_options {
    my $args = shift;
        my $fields = Eliza::Chatbot->new($args->{options});
        my $att = $args->{att};
        # check its value
        is($fields->$att, $args->{value}, "$att set with correct value");

 view release on metacpan or  search on metacpan

lib/Email/ExactTarget/SubscriberOperations.pm  view on Meta::CPAN

132
133
134
135
136
137
138
139
140
141
142
                \@subscribers
        );
 
=cut
 
sub update_or_create
{
        my ( $self, $subscribers ) = @_;
 
        return $self->_update_create(
                'subscribers' => $subscribers,

lib/Email/ExactTarget/SubscriberOperations.pm  view on Meta::CPAN

173
174
175
176
177
178
179
180
181
182
183
                \@subscribers
        );
 
=cut
 
sub update
{
        my ( $self, $subscribers ) = @_;
 
        return $self->_update_create(
                'subscribers' => $subscribers,

 view release on metacpan or  search on metacpan

lib/Email/LocalDelivery/Maildir.pm  view on Meta::CPAN

38
39
40
41
42
43
44
45
46
47
48
  return if $mail->header("Lines");
  my @lines = split /\n/, $mail->body;
  $mail->header_set("Lines", scalar @lines);
}
 
sub update_time {
  if ($maildir_time != time) {
    $maildir_time    = time;
    $maildir_counter = 0;
  } else {
    $maildir_counter++;

 view release on metacpan or  search on metacpan

DB/FileSystem.pm  view on Meta::CPAN

26
27
28
29
30
31
32
33
34
35
36
sub cloneDistro {
 
}
 
#_______________________________________
sub updateDistro {
 
}
 
#_______________________________________
sub getComponentList {

 view release on metacpan or  search on metacpan

eg/web/db/epwebapp.pl  view on Meta::CPAN

531
532
533
534
535
536
537
538
539
540
541
    return $self -> redir_to_show ($r) ;
    }
 
# ----------------------------------------------------------------------------
 
sub update_item
    {
    my $self     = shift ;
    my $r        = shift ;
 
    die "No category" if (!defined ($r->{category_set}{edit_level})) ;

eg/web/db/epwebapp.pl  view on Meta::CPAN

1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
    }
 
 
# ----------------------------------------------------------------------------
 
sub update_user
    {
    my $self     = shift ;
    my $r        = shift ;
 
    if ($self -> checkuser_light($r) < 1)

 view release on metacpan or  search on metacpan

lib/Enterasys/NetSight.pm  view on Meta::CPAN

259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
        my @params=qw(name snmpVersion read write maxAccess auth);
        return _call($self, 'addProfileEx', \@params, $args);
}
 
# Methods for updating
sub updateAuth
{
        my ($self, $args)=@_;
        my @params=qw(username description loginPassword enablePassword configurationPassword type);
        return _call($self, 'updateAuthCredentialEx', \@params, $args);
}
sub updateSnmp
{
        my ($self, $args)=@_;
        my @params=qw(name communityName userName authPassword authType privPassword privType);
        return _call($self, 'updateCredentialEx', \@params, $args);
}
sub updateProfile
{
        my ($self, $args)=@_;
        my @params=qw(name read write maxAccess authCredName);
        return _call($self, 'updateProfileEx', \@params, $args);
}

 view release on metacpan or  search on metacpan

lib/EntityModel/Web/Apache2/UploadHandler.pm  view on Meta::CPAN

82
83
84
85
86
87
88
89
90
91
92
 
=head2 C<updateStatus>
 
=cut
 
sub updateStatus {
        my ($class, $f, $bucket, $mode, $block, $bytesRead) = @_;
        logError("Have %d bytes", $bytesRead);
 
        unless($f->ctx) {
                logError("New request, pid %d, URI %s", $$, $f->r->uri);

 view release on metacpan or  search on metacpan

lib/EntityModel/Web/Request.pm  view on Meta::CPAN

99
100
101
102
103
104
105
106
107
108
109
                return $self;
        }
        return $self->{uri};
}
 
sub update_uri_from {
        my ($self, $uri) = @_;
        $self->{uri} = $uri;
        $self->hostname($uri->host);
        $self->path($uri->path);
        $self->get->set($_, $uri->query_param($_)) for sort $uri->query_param;

 view release on metacpan or  search on metacpan

lib/EntityModel/DB.pm  view on Meta::CPAN

160
161
162
163
164
165
166
167
168
169
170
 
Update information
 
=cut
 
sub update {
        my $self = shift;
        my %args = @_;
        $self->_fork_guard;
 
        my $sql = $args{sql};

 view release on metacpan or  search on metacpan

lib/Etcd/Keys.pm  view on Meta::CPAN

51
52
53
54
55
56
57
58
59
60
    my ($self, $key, $value, %args) = @_;
    croak 'usage: $etcd->create($key, $value, [%args])' if grep { !defined } ($key, $value);
    $self->set($key, $value, %args, prevExist => 'false');
}
 
sub update {
    my ($self, $key, $value, %args) = @_;
    croak 'usage: $etcd->update($key, $value, [%args])' if grep { !defined } ($key, $value);
    $self->set($key, $value, %args, prevExist => 'true');
}

 view release on metacpan or  search on metacpan

lib/Etsy/StatsD.pm  view on Meta::CPAN

165
166
167
168
169
170
171
172
173
174
175
 
Update one of more stats counters by arbitrary amounts.
 
=cut
 
sub update {
        my ( $self, $stats, $delta, $sample_rate ) = @_;
        $delta = 1 unless defined $delta;
        my %data;
        if ( ref($stats) eq 'ARRAY' ) {
                %data = map { $_ => "$delta|c" } @$stats;

 view release on metacpan or  search on metacpan

lib/Evo/EA/Agent.pm  view on Meta::CPAN

8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
        $class = ref($class) || $class;
 
        bless $self, $class;
}
 
sub update_with_agent {
        my ($self, $agent) = @_;
 
        $agent->update_once($self);
}
 
sub update_once {
        my ($self, $agent) = @_;
 
        $agent->interprete;
}