view release on metacpan or search on metacpan
lib/Evo/EA/Agent.pm view on Meta::CPAN
$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;
}
view release on metacpan or search on metacpan
lib/ExpenseTracker/Controllers/Base.pm view on Meta::CPAN
->create( $self->{_payload} );
return $self->render_json( $result->{_column_data} );
}
sub update{
my $self = shift;
my $result_rs = $self->app->model
->resultset( $self->{resource} )
->search_rs(
view release on metacpan or search on metacpan
INSTALL.perl view on Meta::CPAN
chdir 't'; # run from that directory
my $retcode= system ($^X, $testprog, "--quiet");
return $retcode == 0;
}
sub update_TOC
{
eval "use ActivePerl::DocTools; use Pod::Html;";
return if $@; # stop trying with no visible error if modules are not present.
# This is for ActiveState Perl. Attempting to load the module was a test to see if that's what I'm running on.
if (convertPod2html ($dest)) {
view release on metacpan or search on metacpan
$self->_seterror(undef);
return $self->setlist($list{'-dir'});
}
# == Update the current list ==
sub update {
my($self, $switches) = @_;
my($outhost, $inlocal);
# Do we have the command line switches
($self->_seterror(-1, 'nothing to update()') && return 0) unless(defined($switches));
view release on metacpan or search on metacpan
lib/FAQ/OMatic/Bags.pm view on Meta::CPAN
# Don't want user overwriting .desc files with binary bags -- YUK!
return '' if ($name =~ m/\.desc$/);
return $name;
}
sub updateDependents {
my $bagName = shift;
my $dependent;
foreach $dependent (FAQ::OMatic::Item::getDependencies("bags.".$bagName)) {
my $dependentItem = new FAQ::OMatic::Item($dependent);
view release on metacpan or search on metacpan
lib/FAST/Bio/Species.pm view on Meta::CPAN
sub genetic_code {shift->taxon->genetic_code(@_)}
sub mitochondrial_genetic_code {shift->taxon->mitochondrial_genetic_code(@_)}
sub create_date { shift->taxon->create_date(@_)}
sub pub_date { shift->taxon->pub_date(@_)}
sub update_date { shift->taxon->update_date(@_)}
sub db_handle { shift->taxon->db_handle(@_)}
sub parent_id { shift->taxon->parent_id(@_)}
sub parent_taxon_id { shift->taxon->parent_id(@_)}
view release on metacpan or search on metacpan
lib/FR24/Bot.pm view on Meta::CPAN
}
sub _timestamp_milliseconds {
return int(time * 1000);
}
sub update {
my $self = shift;
my $timestamp = _timestamp_milliseconds();
if ($timestamp - $self->{last_updated} < $self->{refresh}) {
# Update only once per second
view release on metacpan or search on metacpan
lib/FSpot/DbTool.pm view on Meta::CPAN
'base_uri' => $new_base_uri };
$fs->update_photo_version( photo_id => $id,
details => $details );
=cut
sub update_photo{
my ( $self, %params ) = validated_hash(
\@_,
photo_id => { isa => 'Int' },
details => { isa => 'NonEmptyHashRef' },
);
view release on metacpan or search on metacpan
lib/Farly/Object/Aggregate.pm view on Meta::CPAN
#return an empty List on no match
return Farly::Object::List->new();
}
# input = search object and new __AGG__
sub update {
my ( $self, $search, $list ) = @_;
confess "Farly::Object::List required"
unless defined($list);
view release on metacpan or search on metacpan
lib/Fedora/App/MaintainerTools/LocalRepo.pm view on Meta::CPAN
sub _build_is_remote_updated { 0 }
#############################################################################
#
sub update_local {
my $self = shift @_;
my %opts = @_;
my $x = $self->_new_files;
### $x
view release on metacpan or search on metacpan
lib/Fedora/Bugzilla/Bug.pm view on Meta::CPAN
$self->dirty(1);
$self->_to_update($meta->name);
}
# update the dirty values in bugzilla; mark clean and purge old data
sub update {
my $self = shift @_;
# only if we have something to update...
return if not $self->dirty;
view release on metacpan or search on metacpan
lib/Fey/Object/Mock/Table.pm view on Meta::CPAN
class => $class,
values => $vals,
);
}
sub update {
my $self = shift;
my %p = @_;
$self->__record_update( \%p );
view release on metacpan or search on metacpan
lib/Fey/Object/Table.pm view on Meta::CPAN
$insert->values(@vals);
return $insert;
}
sub update {
my $self = shift;
my %p = @_;
my $update = $self->SchemaClass()->SQLFactoryClass()->new_update();
view release on metacpan or search on metacpan
lib/Fey/SQL/Update.pm view on Meta::CPAN
init_arg => undef,
);
with 'Fey::Role::SQL::Cloneable';
sub update {
my $self = shift;
my $count = @_ ? @_ : 1;
my (@tables) = pos_validated_list(
\@_,
view release on metacpan or search on metacpan
lib/File/Codeowners.pm view on Meta::CPAN
return $projects;
}
sub update_owners {
my $self = shift;
my $pattern = shift;
my $owners = shift;
$pattern && $owners or _usage(q{$codeowners->update_owners($pattern => \@owners)});
view release on metacpan or search on metacpan
lib/File/FStore/File.pm view on Meta::CPAN
my ($self, $filename) = @_;
symlink($self->filename, $filename) or croak $!;
}
sub update {
my ($self, %opts) = @_;
my File::FStore $store = $self->store;
my $no_digests = delete($opts{no_digests});
my $on_pre_set = delete($opts{on_pre_set});
my $on_post_set = delete($opts{on_post_set});
view release on metacpan or search on metacpan
lib/File/Flock/Subprocess.pm view on Meta::CPAN
s/\\n/\n/g;
s/\\\\/\\/g;
}
}
sub update_proxy_connections
{
use Carp qw(longmess);
print STDERR longmess("last_pid undefined") unless defined $last_pid;
return if $last_pid == $$;
### UPDATING PROXY CONNECTIONS: "$$ IS NOT $last_pid"
view release on metacpan or search on metacpan
lib/File/FormatIdentification/RandomSampling.pm view on Meta::CPAN
return 1;
}
sub update_bytegram {
my $self = shift;
my $buffer = shift;
if (defined $buffer) {
my $bytegram_ref = $self->{'bytegram'};
my @bytes = unpack "C*", $buffer;
view release on metacpan or search on metacpan
lib/File/Gettext/Storage.pm view on Meta::CPAN
my $data = $self->load( $path );
return exists $data->{ $element } ? $data->{ $element } : {};
}
sub update {
return $_[ 0 ]->$_create_or_update( $_[ 1 ], $_[ 2 ], TRUE );
}
1;
view release on metacpan or search on metacpan
lib/File/Modified.pm view on Meta::CPAN
} else {
$self->add($_) for @files;
};
};
sub update {
my ($self) = @_;
$_->initialize() for values %{$self->{Files}};
};
view release on metacpan or search on metacpan
lib/File/Properties/Database.pm view on Meta::CPAN
# ----------------------------------------------------------------------------
# Update rows in table
# ----------------------------------------------------------------------------
sub update {
my $self = shift;
my $tbnm = shift; # Table name
my $opts = shift; # Update options
# Determine column names for update
view release on metacpan or search on metacpan
lib/File/RoundRobin.pm view on Meta::CPAN
=head2 update_headers
Update the start point in the headers section after a write command
=cut
sub update_headers {
my $self = shift;
my $fh = $self->{_fh_};
CORE::sysseek($fh,0, 0);
view release on metacpan or search on metacpan
script/rsybak view on Meta::CPAN
# }
# return 0;
# }
#}
#
#sub update {
# my ($self, %args) = @_;
#
# my $pos = delete($args{pos}) // $self->{pos} + 1;
# my $state = delete($args{state}) // 'started';
# $self->_update(pos => $pos, state => $state);
view release on metacpan or search on metacpan
lib/File/Rsync/Mirror/Recentfile.pm view on Meta::CPAN
return $epoch;
} else {
return _increase_a_bit($recent->[0]{epoch});
}
}
sub update {
my($self,$path,$type,$dirty_epoch) = @_;
if (defined $path or defined $type or defined $dirty_epoch) {
die "update called without path argument" unless defined $path;
die "update called without type argument" unless defined $type;
die "update called with illegal type argument: $type" unless $type =~ /(new|delete)/;
view release on metacpan or search on metacpan
lib/File/SharedVar.pm view on Meta::CPAN
Returns the previous value associated with the key, from before the update.
=cut
sub update {
my($self, $key, $val, $inc) = @_;
my($data)= _load_from_file($self,1);
my $ret = $data->{$key};
# Update the value for the key