view release on metacpan or search on metacpan
lib/DigitalOcean/Domain/Record.pm view on Meta::CPAN
my ($self) = @_;
return $self->Domain->path . '/' . $self->id;
}
sub update {
my $self = shift;
my (%args) = @_;
return $self->DigitalOcean->_put_object($self->path, 'DigitalOcean::Domain::Record', 'domain_record', \%args);
}
view release on metacpan or search on metacpan
dsql_test.pl view on Meta::CPAN
return $cnt == 1;
}
sub update {
my $self = shift;
my $sqlh = $self->{sqlh};
$self->msg;
return $self->insert_update_check (
dsql_test.pl view on Meta::CPAN
},
what => 'update',
);
}
sub update_utf8_latin {
my $self = shift;
my $sqlh = $self->{sqlh};
$self->msg;
my $data = do { use utf8; "ABC Jörn Reder, ÄÜÖß" };
dsql_test.pl view on Meta::CPAN
params => [ $str_short ],
what => 'update',
);
}
sub update_memory_clob {
my $self = shift;
my $sqlh = $self->{sqlh};
$self->msg;
my $memory_blob = "das äüöÄÜÖß ist ein anderer super CLOB\n" x 10;
dsql_test.pl view on Meta::CPAN
},
what => 'update',
);
}
sub update_file_clob {
my $self = shift;
my $sqlh = $self->{sqlh};
$self->msg;
return $self->insert_update_check (
dsql_test.pl view on Meta::CPAN
},
what => 'update',
);
}
sub update_memory_blob {
my $self = shift;
my $sqlh = $self->{sqlh};
$self->msg;
my $memory_blob = "das äüöÄÜÖß ist ein anderer ".chr(250)." super BLOB\n" x 10;
dsql_test.pl view on Meta::CPAN
},
what => 'update',
);
}
sub update_file_blob {
my $self = shift;
my $sqlh = $self->{sqlh};
$self->msg;
return $self->insert_update_check (
dsql_test.pl view on Meta::CPAN
},
what => 'update',
);
}
sub update_utf8_latin_clob {
my $self = shift;
my $sqlh = $self->{sqlh};
$self->msg;
my $data = do { use utf8; "Jörn Reder, ÄÜÖß\n" };
dsql_test.pl view on Meta::CPAN
unlink $file;
return $rc;
}
sub update_utf8 {
my $self = shift;
my $sqlh = $self->{sqlh};
$self->msg;
return $self->insert_update_check (
dsql_test.pl view on Meta::CPAN
params => [ "utf8 stuff: äüöÄÜÖß \x{263a}" ],
);
}
sub update_blob_mem_utf8 {
my $self = shift;
my $sqlh = $self->{sqlh};
$self->msg;
my $blob = "Das sind neue Binärdaten: ÄÖÜ äöü ß\n" x 3; # kein utf8 flag
dsql_test.pl view on Meta::CPAN
);
return $rc;
}
sub update_clob_mem_utf8 {
my $self = shift;
my $sqlh = $self->{sqlh};
$self->msg;
# mit utf8-flag
dsql_test.pl view on Meta::CPAN
where => "str_short = ?",
params => [ "Ä2" ],
);
}
sub update_blob_file_utf8 {
my $self = shift;
my $sqlh = $self->{sqlh};
$self->msg;
my $blob = "Das sind neue Binärdaten: ÄÖÜ äöü ß\n" x 3; # kein utf8 flag
dsql_test.pl view on Meta::CPAN
unlink $file;
return $rc;
}
sub update_clob_file_utf8 {
my $self = shift;
my $sqlh = $self->{sqlh};
$self->msg;
# mit utf8-flag
view release on metacpan or search on metacpan
lib/Digest/Directory/API.pm view on Meta::CPAN
=cut
######################################################################
sub update
{
my($self, $link, $user, $pass, $file, $nodetails, $nosummary, $showequal) = @_;
print "UPDATING\n"
if (!$self->{'quiet'});
view release on metacpan or search on metacpan
lib/Disk/SMART.pm view on Meta::CPAN
$smart->update_data('/dev/sda');
=cut
sub update_data {
my ( $self, @p_devices ) = @_;
my @devices = @p_devices ? @p_devices : $self->get_disk_list();
foreach my $device (@devices) {
my $out;
view release on metacpan or search on metacpan
lib/Dist/Banshee/Mint.pm view on Meta::CPAN
rmdir '.banshee-update';
die $@;
}
}
sub update_script {
my ($skeleton_name, $script_name) = @_;
my $source_dir = catfile(_find_profile($skeleton_name), 'skeleton', '.banshee');
my $source = catfile($source_dir, $script_name);
lib/Dist/Banshee/Mint.pm view on Meta::CPAN
}
return;
}
sub update_patch {
my ($skeleton_name, $script_name) = @_;
my $source_dir = catfile(_find_profile($skeleton_name), 'skeleton', '.banshee');
my $source = catfile('.banshee', $script_name);
view release on metacpan or search on metacpan
t/96-release_cycle.t view on Meta::CPAN
sub done {
done_testing;
# system("rm", "-rf", "/home/spek/repos/acme-steveb");
exit;
}
sub update_version {
# version_info()
my ($orig_ver) = values %{(version_info('lib/Acme/STEVEB.pm'))[0]};
release_version($orig_ver);
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/UpdateGitHub.pm view on Meta::CPAN
use Config::Identity::GitHub;
use LWP::UserAgent;
my $agent = LWP::UserAgent->new;
sub update {
my $self = shift;
my %given = @_;
my ( $login, $token, $repository, $description );
( $repository, $description ) = @given{qw/ repository description /};
view release on metacpan or search on metacpan
lib/Dist/Zilla/Tempdir/Dir.pm view on Meta::CPAN
sub update_input_file {
my ( $self, $file ) = @_;
my $update_item = Dist::Zilla::Tempdir::Item->new( name => $file->name, file => $file->file, );
$update_item->set_original;
lib/Dist/Zilla/Tempdir/Dir.pm view on Meta::CPAN
sub update_disk_file {
my ( $self, $fullname ) = @_;
my $fullpath = path($fullname);
my $shortname = $fullpath->relative( $self->_tempdir );
my %params = ( name => "$shortname", content => $fullpath->slurp_raw );
lib/Dist/Zilla/Tempdir/Dir.pm view on Meta::CPAN
sub update_input_files {
my ($self) = @_;
for my $file ( $self->_all_input_files ) {
$self->update_input_file($file);
}
return;
lib/Dist/Zilla/Tempdir/Dir.pm view on Meta::CPAN
sub update_disk_files {
my ($self) = @_;
for my $filename ( Path::Iterator::Rule->new->file->all( $self->_tempdir->stringify ) ) {
next if $self->_has_input_file( path($filename)->relative( $self->_tempdir ) );
$self->update_disk_file($filename);
}
view release on metacpan or search on metacpan
lib/Document/Repository.pm view on Meta::CPAN
Returns a true value if the file was successfully updated, or undef on
any error. Retrieve the error via get_error();
=cut
sub update {
my $self = shift;
my $filename = shift || return undef;
my $doc_id = shift || return undef;
my $content = shift;
my $append = shift;
view release on metacpan or search on metacpan
lib/Document/TriPart/Cabinet/Storage/Disk.pm view on Meta::CPAN
# my $self = shift;
# my $document = shift;
# $self->_write_document( $document );
#}
#sub update {
# my $self = shift;
# my $document = shift;
# $self->_write_document( $document );
#}
#sub update_or_insert {
# my $self = shift;
# my $document = shift;
# if ( $self->_load( $document ) ) {
# $self->update( $document );
view release on metacpan or search on metacpan
lib/Domain/Register/DomainShare.pm view on Meta::CPAN
sub domain_reactivate {
my ($self, $args) = @_;
$self->_make_request('domain_reactivate', undef, ['email', 'password', 'domainname'], $args);
}
sub update_parking {
my ($self, $args) = @_;
$self->_make_request('update_parking', undef, ['email', 'password', 'domainname'], $args);
}
view release on metacpan or search on metacpan
lib/Domain/Register/TK.pm view on Meta::CPAN
'domainname' => 'TESTDOMAIN-0004.TK'
};
=cut
sub updatedns {
my $self = shift;
my $domain = shift;
my $st;
lib/Domain/Register/TK.pm view on Meta::CPAN
'domainname' => 'TESTDOMAIN-0003.TK'
};
=cut
sub updatewhois {
my $self = shift;
my $domain = shift;
my $param = shift;
my $temp_st = { function => 'updatewhois', domainname => $domain };
view release on metacpan or search on metacpan
lib/Dpkg/BuildFlags.pm view on Meta::CPAN
$source is the origin recorded for any build flag set or modified.
=cut
sub update_from_conffile {
my ($self, $file, $src) = @_;
local $_;
return unless -e $file;
open(my $conf_fh, '<', $file) or syserr(g_('cannot read %s'), $file);
view release on metacpan or search on metacpan
lib/Drupal/Admin.pm view on Meta::CPAN
}
# WARNING this has a dependency on an English string
# die()s if errors are detected
sub update {
my($self) = @_;
$self->log_trace("Entering update()");
my $url = $self->{baseurl} . '/update.php';
view release on metacpan or search on metacpan
lib/DuckCurses/level1.pm view on Meta::CPAN
$self->init;
}
sub update {
my ($self, $level_timer) = @_;
if (my @units = $level_timer->hms and @units[1] >= 0.500) {
$self->move_left;
return "ok";
view release on metacpan or search on metacpan
lib/Dwimmer/Feed/Admin.pm view on Meta::CPAN
}
}
return;
}
sub update {
my ($self, %args) = @_;
my $s = $self->db->get_source_by_id($args{id});
if (not $s) {
die "ID '$args{id}' not found\n";
view release on metacpan or search on metacpan
lib/DynGig/Range/Cluster/Client.pm view on Meta::CPAN
=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
-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
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
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
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
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
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
$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
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
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
}
}
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
}
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
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
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
$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
%{$job->to_hash}
});
}
sub updateJob{
my ($self, $job, $collection) = @_;
$self->getCollection($collection)->update(
{_id=>$job->id} ,