view release on metacpan or search on metacpan
lib/Config/Model/Tk/AnyViewer.pm view on Meta::CPAN
}
return wantarray ? ( $help_frame, $widget ) : $help_frame;
}
sub update_help {
my ( $cw, $w, $help ) = @_;
# work around RT #67306
my $t = $cw->toplevel->cget('-title');
$w->text("\n\n=pod\n\n\n=encoding utf8\n\n$help\n\n=cut\n\n");
view release on metacpan or search on metacpan
lib/Consul/API/ACL.pm view on Meta::CPAN
$$self->_api_exec($$self->_acl_endpoint."/create", 'PUT', %args, _content => $acl->to_json(), sub{
Consul::API::ACL::Success->new($_[0])
});
}
sub update {
my ($self, $acl, %args) = @_;
croak 'usage: $acl->update($acl, [%args])' if grep { !defined } ($acl);
$acl = Consul::ACL->new($acl) if !blessed $acl;
$$self->_api_exec($$self->_acl_endpoint."/update", 'PUT', %args, _content => $acl->to_json());
}
view release on metacpan or search on metacpan
lib/Convert/yEnc/RC.pm view on Meta::CPAN
close(RC);
1
}
sub update
{
my($rc, $line) = @_;
my($tag, @fields) = split ' ', $line;
view release on metacpan or search on metacpan
lib/Convos/Core.pm view on Meta::CPAN
Update a connection's settings. This might issue a reconnect or issue
IRC commands to reflect the changes.
=cut
sub update_connection {
my ($self, $input, $cb) = @_;
my $validation = $self->_validation($input, qw( login name nick password server username ));
if ($validation->has_error) {
$self->$cb($validation, undef);
view release on metacpan or search on metacpan
lib/Coteng.pm view on Meta::CPAN
}
$txn->commit;
}
}
sub update {
my ($self, $table, $args, $where) = @_;
my ($sql, @binds) = $self->sql_builder->update($table, $args, $where);
$self->execute($sql, @binds);
}
view release on metacpan or search on metacpan
lib/Couch/DB/Design.pm view on Meta::CPAN
or error __x"Design documents do not generate an id by themselves.";
$self->update(@_);
}
sub update($%)
{ my ($self, $data, $args) = @_;
$self->couch
->toJSON($data, bool => qw/autoupdate/)
->check($data->{lists}, deprecated => '3.0.0', 'DesignDoc create() option list')
->check($data->{lists}, removed => '4.0.0', 'DesignDoc create() option list')
view release on metacpan or search on metacpan
lib/CouchDB/Client/Doc.pm view on Meta::CPAN
confess("Object not found: $res->{msg}") if $res->{status} == 404;
confess("Connection error: $res->{msg}") unless $res->{success};
return $res->{json}->{_revs_info};
}
sub update {
my $self = shift;
confess("Object hasn't been retrieved") unless $self->{id} and $self->{rev};
my $content = $self->contentForSubmit;
my $res = $self->{db}->{client}->req('PUT', $self->uriName, $content);
view release on metacpan or search on metacpan
lib/Couchbase/Test/Async/Loop.pm view on Meta::CPAN
}
}
}
sub update_event :Event {
my ($evdata,$action,$flags) = @_[ARG0..ARG2];
my $dupfh = $evdata->[EVIDX_DUPFH];
if($action == EVACTION_WATCH) {
if(!$dupfh) {
view release on metacpan or search on metacpan
lib/Crypt/Keyczar/Key.pm view on Meta::CPAN
use warnings;
sub new { return bless {}, $_[0]; }
sub digest_size { return 0 }
sub init { return '' }
sub update {}
sub sign { return '' }
sub verify { return 1 }
view release on metacpan or search on metacpan
lib/Crypt/LE.pm view on Meta::CPAN
Returns: OK | INVALID_DATA | ERROR.
=cut
sub update_contacts {
my ($self, $contacts) = @_;
return $self->_status(INVALID_DATA, "Invalid call parameters.") unless ($contacts and (ref $contacts eq 'ARRAY'));
my @set = map { /^\w+:/ ? $_ : "mailto:$_" } @{$contacts};
my ($status, $content) = $self->_request($self->{directory}->{'reg'}, { resource => 'reg', contact => \@set });
return ($status == $self->_compat_response(ACCEPTED)) ? $self->_status(OK, "Email has been updated.") : $self->_status(ERROR, $content);
view release on metacpan or search on metacpan
# the 'if' added as workaround for perl 'global destruction' bug
# ($self->{context} can disappear on global destruction)
rhash_free($self->{context}) if $self->{context};
}
sub update($$)
{
my $self = shift;
my $message = shift;
rhash_update($self->{context}, $message);
return $self;
}
sub update_fd($$;$$)
{
my ($self, $fd, $start, $size) = @_;
my $res = 0;
my $num = 0;
view release on metacpan or search on metacpan
lib/Cvs/Simple.pm view on Meta::CPAN
sub upd {
goto &update;
}
sub update {
# update() -> update workspace (cvs -q update -d).
# update(file) -> update file (cvs -q update file [file ... ]).
# Doesn't permit -r.
my($self) = shift;
my(@args) = @_;
view release on metacpan or search on metacpan
lib/DB/CouchDB.pm view on Meta::CPAN
my $result = $db->update_doc($docname, $doc) #returns a DB::CouchDB::Result object
=cut
sub update_doc {
my $self = shift;
my $name = shift;
my $doc = shift;
my $jdoc = $self->json()->encode($doc);
return DB::CouchDB::Result->new($self->_call(PUT => $self->_uri_db_doc($name), $jdoc));
view release on metacpan or search on metacpan
lib/DB/Object/Cache/Tables.pm view on Meta::CPAN
return( $self );
}
sub timeout { return( shift->_set_get_number( 'timeout', @_ ) ); }
sub updated { return( shift->_set_get_number( 'updated', @_ ) ); }
sub write
{
my $self = shift( @_ );
my $hash = shift( @_ ) || return( $self->error( "No table cache data was provided to write to cache file \"", $self->cache_file, "\"." ) );
view release on metacpan or search on metacpan
lib/DBD/AnyData2.pm view on Meta::CPAN
my ( $self, $data, $aryref ) = @_;
my $meta = $self->{meta};
$meta->{ad2h}->delete_one_row($aryref);
}
sub update_one_row ($$$)
{
my ( $self, $data, $aryref ) = @_;
my $meta = $self->{meta};
# we don't know the key item
$meta->{ad2h}->update_one_row($aryref);
}
sub update_specific_row ($$$$)
{
my ( $self, $data, $aryref, $origary ) = @_;
my $meta = $self->{meta};
return unless ( defined $origary->[0] );
$origary->[0] eq $aryref->[0] or croak "Updating a row with new transaction ID is not supported. DELETE and INSERT instead.";
view release on metacpan or search on metacpan
Chart/Plot.pm view on Meta::CPAN
my ($angle) = @_;
return (cos($angle)/sin($angle));
}
sub updateImagemap {
my ($obj, $shape, $alt, $plotNum, $x, $y, $z, @pts) = @_;
$y = '' unless defined($y);
$z = '' unless defined($z);
#
# do different for Perl map
view release on metacpan or search on metacpan
t/ExecuteArray.pm view on Meta::CPAN
check_data($dbh, \@p1, \@p2);
}
# test updates
# updates are special as you can update more rows than there are parameter rows
sub update
{
my ($self, $dbh, $ref) = @_;
note("update test");
view release on metacpan or search on metacpan
examples/ora_explain.pl view on Meta::CPAN
return($dialog);
}
################################################################################
sub update_title()
{
$PlanMain->configure(-title =>
$User
? $User eq $Schema
? "$ProgName - connected to $DbName as $User"
view release on metacpan or search on metacpan
t/03_DBD-PO/15_header_msgstr_hash.t view on Meta::CPAN
WHERE msgid=''
EOT
isa_ok($sth_update, 'DBI::st', 'prepare select');
}
sub update_header {
my $name = shift;
my ($test_keys, $test_values) = @{ $test_data{$name} };
my %params;
view release on metacpan or search on metacpan
testme.tmp.pl view on Meta::CPAN
#memory_leak_test_bug_65734();
#memory_leak_arrays();
sub update_rule_return {
my @statements = (
q[DROP TABLE IF EXISTS test CASCADE],
q[CREATE TABLE test(id int primary key, animal text, sound text)],
q[CREATE VIEW test_view AS SELECT * FROM test],
view release on metacpan or search on metacpan
t/36_hooks.t view on Meta::CPAN
# hooks : just count the commits / rollbacks / updates
my ($n_commits, $n_rollbacks, $n_updates, @update_args);
sub commit_hook { $n_commits += 1; return 0; }
sub rollback_hook { $n_rollbacks += 1; return 0; }
sub update_hook { $n_updates += 1;
@update_args = @_; }
my $sql_count_rows = "SELECT COUNT(foo) FROM hook_test";
foreach my $call_func (@CALL_FUNCS) {