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
lib/Finance/Currency/Convert/Custom.pm view on Meta::CPAN
use base qw(Finance::Currency::Convert);
use LWP::UserAgent;
our $VERSION = '1.00';
sub updateRates() {
my $self = shift;
my $sub_ref = shift;
my @CurrencyList = @_;
lib/Finance/Currency/Convert/Custom.pm view on Meta::CPAN
$self->setRate($source, $target, &{$sub_ref}($source, $target));
}
}
}
sub updateRate() {
my $self = shift;
my $sub_ref = shift;
my $source = shift;
my $target = shift;
unless(ref $sub_ref eq 'CODE'){
view release on metacpan or search on metacpan
lib/Finance/Currency/Convert/DnB.pm view on Meta::CPAN
use File::Spec;
use XML::Simple;
use LWP::Simple;
use Slurp;
sub update_currency {
my $filename = File::Spec->tmpdir() . "/currency_list_" . ((defined $>) ? $> : "") . ".xml";
#only download XML twice a day
if (!-e $filename || time()-43200 < -M $filename || $_[0]) {
is_success ($_=getstore('http://www.dnbnor.no/portalfront/datafiles/miscellaneous/csv/kursliste_ws.xml', $filename))
or die 'Failed to get list of currencies; http error code: ' . $_;
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));
view release on metacpan or search on metacpan
inc/Class/MOP/Class.pm view on Meta::CPAN
return $method if defined $method;
}
return;
}
sub update_meta_instance_dependencies {
my $self = shift;
if ( $self->{meta_instance_dependencies} ) {
return $self->add_meta_instance_dependencies;
}
view release on metacpan or search on metacpan
examples/MyEventHandler.pm view on Meta::CPAN
{}
#
# Account and Portfolio
#
sub updateAccountValue
{}
sub updatePortfolio
{}
sub updateAccountTime
{}
#
# News Bulletins
#
sub updateNewsBulletin
{}
#
# Contract Details
#
examples/MyEventHandler.pm view on Meta::CPAN
{}
#
# Market Depth
#
sub updateMktDepth
{}
sub updateMktDepthL2
{}
#
# Financial Advisors
#
view release on metacpan or search on metacpan
script/privateloan.pl view on Meta::CPAN
$totalInterest =0;
$YearEnd += $Year;
print "Date\t\tPrincipal\tGross interest due\tTax due\tAmount paid\tPrincipal repaid\n";
}
sub updateLoan {
$InterestRate = $Advances[0]->{rate} if exists($Advances[0]->{rate});
$Principal += $Advances[0]->{amount} if exists($Advances[0]->{amount});
$Premium = $Advances[0]->{premium} if exists($Advances[0]->{premium});
shift @Advances;
}
sub updateTax {
$TaxRate = $TaxRates[0]->{rate} if exists($TaxRates[0]->{rate});
shift @TaxRates;
}
=head1 AUTHOR
view release on metacpan or search on metacpan
lib/Finance/Quant.pm view on Meta::CPAN
$self->{config}->{'sources'} = $sources;
$self->createDataDir();
$self->_init();
return $self;
}
sub updateSymbols {
my $self = shift;
$self->getNasdaqSymbols(File::Spec->tmpdir(),$self->{config}->{sources}->{NASDAQ_SYMBOLS});
}
sub _init{
my $self = shift;
view release on metacpan or search on metacpan
lib/Finance/QuoteDB.pm view on Meta::CPAN
updatedb()
=cut
sub updatedb {
my $self = shift ;
my $dsn = $self->{dsn};
INFO ("COMMAND: Update database $dsn\n");
lib/Finance/QuoteDB.pm view on Meta::CPAN
updatedbMarketStock($market,\%symbolIDs)
=cut
sub updatedbMarketStock {
my ($self,$market,$stockHash) = @_ ;
my $schema = $self->schema();
my @fqsymbols = keys(%{$stockHash}) ;
DEBUG "UPDATEDBMARKETSTOCK: $market -->" .join(",",@fqsymbols)."\n" ;
my $q = Finance::Quote->new();