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");
lib/Config/Model/Tk/AnyViewer.pm view on Meta::CPAN
$cw->update_warning($elt_obj);
return $frame;
}
sub update_warning {
my ( $cw, $elt_obj ) = @_;
my $wf = $cw->Subwidget('warn_frame');
my $ww = $cw->Subwidget('warn_widget');
my $fw = $cw->Subwidget('fix_widget');
view release on metacpan or search on metacpan
lib/Config/Std.pm view on Meta::CPAN
package Config::Std::Gap;
use Class::Std;
{
sub serialize { return "\n" }
sub update {}
sub extend {}
sub copy_to {}
}
package Config::Std::Comment;
lib/Config/Std.pm view on Meta::CPAN
sub append_comment {
my ($self, $new_text) = @_;
$text_of{ident $self} .= $new_text;
}
sub update {}
sub extend {}
sub copy_to {}
}
package Config::Std::Keyval;
lib/Config/Std.pm view on Meta::CPAN
}
return $serialization;
}
sub update {
my ($self, $hash_ref, $updated_ref) = @_;
my $ident = ident $self;
my $key = $key_of{$ident};
lib/Config/Std.pm view on Meta::CPAN
}
return $serialization;
}
sub update {
my ($self, $hash_ref, $updated_ref) = @_;
my $ident = ident $self;
if (!defined $hash_ref) {
$deleted_of{$ident} = 1;
view release on metacpan or search on metacpan
lib/Confluence/Client/XMLRPC.pm view on Meta::CPAN
return '';
}
}
}
sub updatePage {
my Confluence::Client::XMLRPC $self = shift;
my $page = shift;
my $pageUpdateOptions = ( shift || {} );
if ( $self->{'_cflVersion'} ge "002010000" ) {
lib/Confluence/Client/XMLRPC.pm view on Meta::CPAN
}
}
return '';
}
sub updateOrStorePage {
my Confluence::Client::XMLRPC $self = shift;
my $newPage = shift;
my $couldUpdate = 1;
foreach my $field ( qw( id space title content version ) ) {
view release on metacpan or search on metacpan
lib/Confman/API.pm view on Meta::CPAN
}
$self;
}
sub update_pairs {
my $self = shift;
my %pairs = @_;
my ($results, $response) = $self->api->request('PUT', "confman/sets/$self->{id}/update_pairs", {
conf_pairs => \%pairs
});
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) {
lib/Couchbase/Test/Async/Loop.pm view on Meta::CPAN
} else {
die("Unhandled action $action");
}
}
sub update_timer :Event {
my ($evdata,$action,$usecs) = @_[ARG0..ARG2];
my $timer_id = $evdata->[EVIDX_PLDATA];
my $seconds;
if($usecs) {
view release on metacpan or search on metacpan
lib/CracTools/SAMReader/SAMline.pm view on Meta::CPAN
my $self = shift;
return $self->{line};
}
sub updatedLine {
my $self = shift;
my $updated_line = shift;
if(defined $updated_line) {
$self->{updated_line} = $updated_line;
return 1;
lib/CracTools/SAMReader/SAMline.pm view on Meta::CPAN
}
return 0;
}
sub updateEvent {
my $self = shift;
my $event = shift;
my $new_event_type = shift;
my %new_event = @_;
view release on metacpan or search on metacpan
lib/Crypt/HSXKPasswd.pm view on Meta::CPAN
# Arguments : 1. a hashref containing config keys and values.
# Throws : Croaks on invalid invocaiton, invalid args, and, if the resulting
# new config is in some way invalid.
# Notes : Invalid keys in the new keys hashref will be silently ignored.
# See Also :
sub update_config{
my @args = @_;
my $self = shift @args;
_force_instance($self);
# validate args
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;
}
return (defined($res) ? $num : undef); # return undef on read error
}
sub update_file($$;$$)
{
my ($self, $file, $start, $size) = @_;
open(my $fd, "<", $file) or return undef;
my $res = $self->update_fd($fd, $start, $size);
close($fd);
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;
}
return (defined($res) ? $num : undef); # return undef on read error
}
sub update_file($$;$$)
{
my ($self, $file, $start, $size) = @_;
open(my $fd, "<", $file) or return undef;
my $res = $self->update_fd($fd, $start, $size);
close($fd);
view release on metacpan or search on metacpan
sample/demhist.pl view on Meta::CPAN
&update_brightcont;
Cv->WaitKey;
# brightness/contrast callback function
sub update_brightcont {
my $brightness = $brightness - 100;
my $contrast = $contrast - 100;
# The algorithm is by Werner D. Streidt
# (http://visca.com/ffactory/archives/5-99/msg00021.html)
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
Chart/Plot.pm view on Meta::CPAN
$imgmap .= " SHAPE=$shape COORDS=\"" . join(',', @pts) . '">';
$obj->{imgMap} = $imgmap;
return 1;
}
sub updatePerlImagemap {
my ($obj, $plotNum, $x, $y, $z, $shape, @pts) = @_;
#
# render image map element:
# hotspot is an 8 pixel diameter circle centered on datapoint for
# lines, points, areas, and candlesticks.
view release on metacpan or search on metacpan
lib/JLdap.pm view on Meta::CPAN
$self->{dirty} = 0 if ($status > 0);
return $status;
}
sub update
{
my ($self, $csr, $query) = @_;
my ($i, $path, $regex, $table, $extra, @attblist, $filter, $all_columns);
my $status = 0;
my ($psuedocols) = "CURVAL|NEXTVAL|ROWNUM";
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) {
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) {