view release on metacpan or search on metacpan
lib/Log/Syslog/Fast/PP.pm view on Meta::CPAN
eval { $self->set_receiver($proto, $hostname, $port) };
die "Error in ->new: $@" if $@;
return $self;
}
sub update_prefix {
my $self = shift;
my $t = shift;
$self->[LAST_TIME] = $t;
view release on metacpan or search on metacpan
$self->unlock();
}
$self->update_history($msg);
}
sub update_history{
my($self,$msg)=@_;
push @HISTORY,$msg;
}
sub retrieve_history{
view release on metacpan or search on metacpan
lib/LucyX/Simple.pm view on Meta::CPAN
Exception::Simple->throw('no document') if ( !$document );
$self->_indexer->add_doc( $document );
}
sub update_or_create{
my ( $self, $document, $pk ) = @_;
Exception::Simple->throw('no document') if !$document;
$pk ||= 'id';
my $pv = $document->{ $pk };
view release on metacpan or search on metacpan
lib/Lufs/Svn.pm view on Meta::CPAN
sub release {
my $self = shift;
$self->commit($_[0]);
}
sub update {
my $self = shift;
$self->{svn}->update(@_);
}
sub checkout {
view release on metacpan or search on metacpan
lib/MARC/BBMARC.pm view on Meta::CPAN
Prompts for updated record file.
Prints running count of records based on counting_print function. Works only with USMARC input files.
=cut
sub updated_record_array {
use MARC::File::USMARC;
my @updatedrecarray;
####################################
# To do: test abstracted input file call ##
lib/MARC/BBMARC.pm view on Meta::CPAN
Reduce memory usage, probably by learning how to tie hash to file instead of storing everything in memory.
=cut
sub updated_record_hash {
use MARC::Batch;
my %updatedrechash;
#retrieve file name if one was passed
view release on metacpan or search on metacpan
lib/MARC/File/MARCMaker.pm view on Meta::CPAN
leader (the length) will be invalid. This function updates the
leader with the correct length of the record as it would be if
written out to a file.
sub update_leader() { #from USMARC
my $self = shift;
my (undef,undef,$reclen,$baseaddress) = $self->_build_tag_directory();
$self->_set_leader_lengths( $reclen, $baseaddress );
view release on metacpan or search on metacpan
lib/MARC/Field.pm view on Meta::CPAN
Returns the number of items modified.
=cut
sub update {
my $self = shift;
## tags 000 - 009 don't have indicators or subfields
if ( $self->is_control_field ) {
$self->{_data} = shift;
view release on metacpan or search on metacpan
lib/MARC/Transform.pm view on Meta::CPAN
}
}
return $outLUT;
}
sub update {
my ($field,$subfields)=@_;
transform ("update",$field,$subfields);
return 1;
}
sub forceupdate {
my ($field,$subfields)=@_;
transform ("forceupdate",$field,$subfields);
return 1;
}
sub updatefirst {
my ($field,$subfields)=@_;
transform ("updatefirst",$field,$subfields);
return 1;
}
sub forceupdatefirst {
view release on metacpan or search on metacpan
# untouched unless a new field needs to be created, in which case they
# are left blank.
####################################################################
sub updatefirst { # rec
my $marc = shift || return;
my $template = shift;
return unless (ref($template) eq "HASH");
return unless (@_);
return if (defined $template->{'value'});
# like the output of getfields(), and replaces/creates the field
# data. It assumes that it should remove the fields with the first tag
# in the fieldrefs. It calls rebuild_map() if $do_rebuild_map.
####################################################################
sub updatefields { # rec
my $marc = shift || return;
my $template = shift;
my $rafieldrefs = shift;
my $recnum = $template->{'record'};
# updaterecord() takes an array of key/value pairs, formatted like #
# the output of getupdate(), and replaces/creates the field data. #
# For repeated tags, a "\036" element is used to delimit data into #
# separate addfield() commands. #
####################################################################
sub updaterecord {
my $marc = shift || return;
my $template = shift;
return unless (ref($template) eq "HASH");
return unless (@_);
return if (defined $template->{'value'});
# untouched unless a new field needs to be created, in which case they
# are left blank.
####################################################################
sub updatefirst { # rec
my $marcrec = shift || return;
my $template = shift;
return unless (ref($template) eq "HASH");
return unless (@_);
return if (defined $template->{'value'});
# like the output of getfields(), and replaces/creates the field
# data. It assumes that it should remove the fields with the first tag
# in the fieldrefs. It calls rebuild_map() if $do_rebuild_map.
####################################################################
sub updatefields { # rec
my $marcrec = shift || return;
my $template = shift;
my $do_rebuild_map = $template->{'rebuild_map'};
my $tag = $template->{'field'};
view release on metacpan or search on metacpan
examples/tk_disp_reg.pl view on Meta::CPAN
print "unable to open TCP socket.\n";
exit(1);
}
# sub to update modbus_val (call by a tk timer)
sub update_modbus() {
my $words = $m->read_holding_registers(0, 1);
$modbus_val = $words->[0]."\n";
}
# init Tk
view release on metacpan or search on metacpan
lib/MCP/Wiki/Document.pm view on Meta::CPAN
Path::Tiny::path($self->file_path)->spew_utf8(join("\n", @new_lines));
return 1;
}
sub update_content_hash {
my ($self) = @_;
return sha256_hex($self->content);
}
1;
view release on metacpan or search on metacpan
lib/MDK/Common/System.pm view on Meta::CPAN
}
}
%h;
}
sub update_gnomekderc {
my ($file, $category, %subst_) = @_;
my %subst = map { lc($_) => [ $_, $subst_{$_} ] } keys %subst_;
my $s;
view release on metacpan or search on metacpan
contrib/mhastart.pl view on Meta::CPAN
}
}
##---------------------------------------------------------------------------
sub updatembox {
my $msgref = shift;
open FILE, ">> $mbox" or die "Couldn't open $mbox\n$!";
flock FILE, 2;
print FILE ($pop3 ? join '', @$msgref : $$msgref), "\n\n";
close FILE;
}
sub updatearchive {
@ARGV = (@_, '-outdir', $archive);
push @ARGV, $mbox unless $in{routine} eq 'remove';
require 'mhamain.pl' or die "Couldn't require mhamain.pl\n$!";
mhonarc::initialize(); # skipped the 'mhonarc' program file in
mhonarc::process_input(); # order to avoid the ending exit call
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
$examples =~ s/\r\n/\n/g;
update_file( $example_file, $examples );
};
};
sub update_file {
my( $filename, $new_content ) = @_;
my $content;
if( -f $filename ) {
open my $fh, '<:raw:encoding(UTF-8)', $filename
or die "Couldn't read '$filename': $!";
view release on metacpan or search on metacpan
lib/MOBY/Adaptor/moby/DataAdapterI.pm view on Meta::CPAN
Function : update an Object in mobycentral
Args :
Returns : 1 if the update was successful
0 otherwise
=cut
sub update{
die "update not implemented in the DataAdapterI Interface file.\n";
}
=head2 query
view release on metacpan or search on metacpan
lib/MOSES/MOBY/Cache/Central.pm view on Meta::CPAN
* There is a SOAP error calling the registry
* There were read/write errors on the cache directory or its contents
=cut
sub update_datatype_cache {
my ($self) = @_;
my %old_datatypes = ();
my %new_datatypes = ();
my @changed_datatypes = ();
lib/MOSES/MOBY/Cache/Central.pm view on Meta::CPAN
* There is a SOAP error calling the registry
* There were read/write errors on the cache directory or its contents
=cut
sub update_service_cache {
my ($self) = @_;
my %old_services = ();
my %new_services = ();
my %changed_services = ();
view release on metacpan or search on metacpan
lib/MP3/Find/DB.pm view on Meta::CPAN
database handle as C<dbh> or the filename of an SQLite database as C<db_file>.
=cut
# this is update_db and update_files (from Matt Dietrich) rolled into one
sub update {
my $self = shift;
my $args = shift;
my $dbh = _get_dbh($args) or croak "Please provide a DBI database handle, DSN, or SQLite database filename";
lib/MP3/Find/DB.pm view on Meta::CPAN
in the database, then it will only be updated if it has been modified
since the last time C<update_db> was run.
=cut
sub update_db {
my $self = shift;
my $db_file = shift or croak "Need the name of the database to update";
my $dirs = shift;
my $status_callback = $self->{status_callback} || $DEFAULT_STATUS_CALLBACK;
view release on metacpan or search on metacpan
lib/MP3/PodcastFetch.pm view on Meta::CPAN
MP3::PodcastFetch::Feed::Channel object (this object is generated by
podcast_fetch() in the course of downloading and parsing the RSS file.
=cut
sub update {
my $self = shift;
my $channel = shift;
my $title = $channel->title;
my $description = $channel->description;
my $dir = $self->generate_directory($channel);
view release on metacpan or search on metacpan
lib/MP3/Tag.pm view on Meta::CPAN
$data and call this method - no further tinkering with subtags is
needed.
=cut
sub update_tags {
my ($mp3, $data, $force2, $wr2) = (shift, shift, shift);
$mp3->get_tags;
$data = $mp3->autoinfo('from') unless defined $data;
view release on metacpan or search on metacpan
lib/MQUL.pm view on Meta::CPAN
See L<MQUL::Reference/"UPDATE STRUCTURE"> to learn about the structure of
update hash-refs.
=cut
sub update_doc {
my ( $doc, $obj ) = @_;
croak "MQUL::update_doc() requires a document hash-ref."
unless defined $doc && ref $doc && ref $doc eq 'HASH';
croak "MQUL::update_doc() requires an update hash-ref."
view release on metacpan or search on metacpan
lib/MSDOS/Descript.pm view on Meta::CPAN
} # end write
#---------------------------------------------------------------------
# Save changes to descriptions:
sub update
{
$_[0]->write if $_[0]->changed;
} # end update
#=====================================================================
view release on metacpan or search on metacpan
lib/MYDan/Agent/KeyUpdate.pm view on Meta::CPAN
}
return 0;
}
sub update
{
my $this = shift;
print "update ...\n";
view release on metacpan or search on metacpan
lib/Mackerel/ReleaseUtils.pm view on Meta::CPAN
$body .= sprintf "- %s #%s\n", $rel->{title}, $rel->{number};
}
$body;
}
sub update_versions {
my ($package_name, $current_version, $next_version) = @_;
### update versions
my $cur_ver_reg = quotemeta $current_version;
lib/Mackerel/ReleaseUtils.pm view on Meta::CPAN
my $p = quotemeta $packagen_name;
my ($debian_revision) = $content =~ /^$p \([0-9]+(?:\.[0-9]+){2}-([^)]+)\) stable;/ms;
$debian_revision;
}
sub update_changelog {
my ($package_name, $next_version, @releases) = @_;
my $email = 'mackerel-developers@hatena.ne.jp';
my $name = 'mackerel';
lib/Mackerel/ReleaseUtils.pm view on Meta::CPAN
$content =~ s/\A# Changelog/# Changelog$update/;
$content;
};
}
sub update_makefile {
my $next_version = shift;
replace 'Makefile' => sub {
my $content = shift;
$content =~ s/^VERSION( *:*= *).*?\n/VERSION$1$next_version\n/ms;
$content;
view release on metacpan or search on metacpan
lib/Magrathea/API/Emergency.pm view on Meta::CPAN
If Magrathea's validation fails, the update will croak.
=cut
sub update
{
my $self = shift;
my $info = $self->info;
unless ($self->postcode and $self->name) {
croak "Name and postcode are mandatory";
view release on metacpan or search on metacpan
#------------------------------#
# Alias::update() Method #
# Version 1.0 8/13/00#
#------------------------------#
sub update {
my ($self, $alias, $address_string) = @_;
my ($found_it, $alias_line);
undef $found_it;
view release on metacpan or search on metacpan
lib/Mail/Box/POP3.pm view on Meta::CPAN
sub openSubFolder($@) { undef } # fails
sub topFolderWithMessages() { 1 } # Yes: only top folder
sub update() { $_[0]->notImplemented }
#--------------------
sub popClient(%)
{ my ($self, %args) = @_;
view release on metacpan or search on metacpan
lib/Mail/Box.pm view on Meta::CPAN
sub size() { sum 0, map $_->size, $_[0]->messages('ACTIVE') }
sub update(@)
{ my $self = shift;
$self->updateMessages(
trusted => $self->isTrusted,
head_type => $self->{MB_head_type},
lib/Mail/Box.pm view on Meta::CPAN
sub readMessages(@) { $_[0]->notImplemented }
sub updateMessages(@) { $_[0] }
sub writeMessages(@) { $_[0]->notImplemented }
view release on metacpan or search on metacpan
lib/Mail/Chimp/List.pm view on Meta::CPAN
sub delete_interest_group {
my ( $self, $name ) = @_;
return $self->_call( 'listInterestGroupDel', $name );
}
sub update_interest_group {
my ( $self, $old_name, $new_name ) = @_;
return $self->_call( 'listInterestGroupDel', $old_name, $new_name );
}
sub interest_groups {
lib/Mail/Chimp/List.pm view on Meta::CPAN
sub delete_merge_var {
my ( $self, $name ) = @_;
return $self->_call( 'listMergeVarDel', uc $name );
}
sub update_merge_var {
my ( $self, $name ) = @_;
return $self->_call( 'listMergeVarUpdate', uc $name );
}
sub merge_vars {
lib/Mail/Chimp/List.pm view on Meta::CPAN
sub unsubscribe_address {
my ( $self, $email, $delete ) = @_;
return $self->_call( 'listUnsubscribe', $email, $delete );
}
sub update_member {
my ( $self, $email, $merge_vars, $email_type, $replace_interests ) = @_;
$merge_vars ||= {};
return $self->_call( 'listUpdateMember', $email, $merge_vars, $email_type, $replace_interests );
}
view release on metacpan or search on metacpan
lib/Mail/DMARC/Base.pm view on Meta::CPAN
}
return 0;
}
sub update_psl_file( $self, $dryrun = undef ) {
my $psl_file = $self->find_psl_file();
die "No Public Suffix List file found\n" if ( !$psl_file );
die "Public suffix list file $psl_file not found\n" if ( !-f $psl_file );
die "Cannot write to Public Suffix List file $psl_file\n" if ( !-w $psl_file );
view release on metacpan or search on metacpan
lib/Mail/Decency/Core/SessionItem/ContentFilter.pm view on Meta::CPAN
Write store YAML file
=cut
sub update_store {
my ( $self ) = @_;
open my $fh, '>', $self->store
or die "Cannot open store file ". $self->store. " for write: $!";
my %create = ();
$create{ from } = $self->from if $self->from;
lib/Mail/Decency/Core/SessionItem/ContentFilter.pm view on Meta::CPAN
Update session from cached policy session
=cut
sub update_from_policy_cache {
my ( $self, $hash_ref ) = @_;
# update spam score
$self->spam_score( $self->spam_score + $hash_ref->{ spam_score } )
if $hash_ref->{ spam_score };
lib/Mail/Decency/Core/SessionItem/ContentFilter.pm view on Meta::CPAN
Update session from cached session
=cut
sub update_from_cache {
my ( $self, $hash_ref ) = @_;
$self->update_from_policy_cache( $hash_ref );
$self->virus( join( "; ", $self->virus, $hash_ref->{ virus } ) )