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
lib/Fedora/App/MaintainerTools/LocalRepo.pm view on Meta::CPAN
system $cmd;
return;
}
sub update_remote {
my $self = shift @_;
my %opts = @_;
$self->log->info('Updating local repo and pushing...');
view release on metacpan or search on metacpan
lib/Fedora/App/ReviewTool.pm view on Meta::CPAN
}
# template shortcuts
sub verbose_description { shift->_from_template('verbose_description', @_) }
sub branch { shift->_from_template('branch', @_) }
sub update { shift->_from_template('update', @_) }
sub new_tix { shift->_from_template('new_tix', @_) }
sub verbose_submit { shift->_from_template('verbose_submit', @_) }
sub import_task_review { shift->_from_template('import_task_review', @_) }
1;
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(
\@_,
lib/Fey/SQL/Update.pm view on Meta::CPAN
$self->order_by_clause($dbh),
$self->limit_clause($dbh),
);
}
sub update_clause {
return 'UPDATE ' . $_[0]->_tables_subclause( $_[1] );
}
sub _tables_subclause {
return (
view release on metacpan or search on metacpan
lib/FeyX/Active/Table.pm view on Meta::CPAN
$insert->into( $self );
$insert->values( @_ ) if @_;
$insert;
}
sub update {
my $self = shift;
my $update = FeyX::Active::SQL::Update->new(
dbh => $self->schema->dbi_manager->default_source->dbh
);
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)});
lib/File/Codeowners.pm view on Meta::CPAN
return $count;
}
sub update_owners_by_project {
my $self = shift;
my $project = shift;
my $owners = shift;
$project && $owners or _usage(q{$codeowners->update_owners_by_project($project => \@owners)});
view release on metacpan or search on metacpan
lib/File/DataClass/Result.pm view on Meta::CPAN
sub name { # Deprecated
return defined $_[ 1 ] ? $_[ 0 ]->id( $_[ 1 ] ) : $_[ 0 ]->id;
}
sub update {
return $_[ 0 ]->_storage->update( $_[ 0 ]->_path, $_[ 0 ] );
}
1;
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);
script/rsybak view on Meta::CPAN
#sub new {
# my ($class, %args) = @_;
# bless \%args, $class;
#}
#
#sub update {
# 1;
#}
#
#1;
#
script/rsybak view on Meta::CPAN
# }
#
# return ("%s", $bar_bar);
#}
#
#sub update {
# my ($self, %args) = @_;
#
# return unless $ENV{PROGRESS_TERM_BAR} // $ENV{PROGRESS} // (-t $self->{fh});
#
# my $now = time();
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/SOPS/Metadata.pm view on Meta::CPAN
return $hash;
}
sub update_lastmodified {
my ($self) = @_;
$self->lastmodified(strftime('%Y-%m-%dT%H:%M:%SZ', gmtime));
return $self;
}
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
view release on metacpan or search on metacpan
lib/File/Sticker.pm view on Meta::CPAN
Add/Update the given files into the database.
$sticker->update_db(@files);
=cut
sub update_db {
my $self = shift;
my @files = @_;
my $transaction_on = 0;
my $num_trans = 0;
view release on metacpan or search on metacpan
lib/File/Tabular/Web.pm view on Meta::CPAN
$self->{results} = {count => 1, records => [$record], lineNumbers => [-1]};
}
#----------------------------------------------------------------------
sub update {
#----------------------------------------------------------------------
my ($self) = @_;
# check if there is one record to update
my $found = $self->{results};
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/Filesys/POSIX/Inode.pm view on Meta::CPAN
Updates the current inode object with a list of values as returned by
L<stat()|perlfunc/stat>.
=cut
sub update {
my ( $self, @st ) = @_;
@{$self}{qw(size atime mtime ctime uid gid mode rdev)} =
( @st[ 7 .. 10 ], @st[ 4 .. 5 ], $st[2], $st[6] );
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/Finance/Alpaca.pm view on Meta::CPAN
sub watchlist ( $s, $watchlist_id ) {
my $res = $s->ua->get( $s->endpoint . '/v2/watchlists/' . $watchlist_id )->result;
return $res->is_error ? ( $res->json ) : to_Watchlist( $res->json );
}
sub update_watchlist ( $s, $watchlist_id, %params ) {
my $res
= $s->ua->put( $s->endpoint . '/v2/watchlists/' . $watchlist_id => json => {%params} )
->result;
return $res->is_error ? ( $res->json ) : to_Watchlist( $res->json );
}
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
@section = map { $_ =~ s!^=\w+\s+!!; $_ } @section;
return join "", @section;
}
sub update_file {
my( $filename, $new_content ) = @_;
my $content;
if( -f $filename ) {
open my $fh, '<', $filename
or die "Couldn't read '$filename': $!";
view release on metacpan or search on metacpan
lib/Finance/Currency/Convert/BChile.pm view on Meta::CPAN
You can pass a fake value as a parameter. In this case there's no
update from bcentral site.
=cut
sub update {
my $self = shift;
my $simulate = shift;
if ($simulate) {
$self->{'dolar'} = $simulate;
view release on metacpan or search on metacpan
}
$q->user_agent->agent($self->{UserAgent});
return $q;
}
sub updateRates() {
my $self = shift;
my @CurrencyList = @_;
my $q = $self->_getQuoteFetcher();
return if (!defined($q));
foreach my $source (@CurrencyList) {
$self->setRate($source, $target, $q->currency($source, $target));
}
}
}
sub updateRate() {
my $self = shift;
my $source = shift;
my $target = shift;
my $q = $self->_getQuoteFetcher();
return if (!defined($q));