view release on metacpan or search on metacpan
lib/Mastodon/Client.pm view on Meta::CPAN
: 'timelines/' . $query;
return $self->get($endpoint, $params);
}
sub update_account {
my $self = shift;
state $check = compile(
slurpy Dict [
display_name => Optional [Str],
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Math/LP.pm view on Meta::CPAN
}
}
return $lprec;
}
sub update_variable_values { # copies the variable values to the variable objects
my Math::LP $this = shift;
my $lprec = shift;
# the variable values are found in the solution vector
my $solution = Math::LP::Solve::lprec_best_solution_get($lprec);
lib/Math/LP.pm view on Meta::CPAN
foreach(values %{$this->{variables}}) {
my $var_index = $_->{col_index};
$_->{value} = Math::LP::Solve::ptrvalue($solution,$offset+$var_index);
}
}
sub update_slacks {
my Math::LP $this = shift;
my $lprec = shift;
# the slacks are fetched from the solution vector
my $solution = Math::LP::Solve::lprec_best_solution_get($lprec);
lib/Math/LP.pm view on Meta::CPAN
# Also fetch the objective function value
if(defined($this->{objective_function})) {
$this->{objective_function}->{value} = Math::LP::Solve::ptrvalue($solution,0);
}
}
sub update_dual_values {
my Math::LP $this = shift;
my $lprec = shift;
# the dual values are fetched from the duals vector
my $duals = Math::LP::Solve::lprec_duals_get($lprec);
view all matches for this distribution
view release on metacpan or search on metacpan
inc/MyBuilder.pm view on Meta::CPAN
$self->dispatch("compile_xs");
$self->SUPER::ACTION_code;
}
sub update_XS {
my ($self, $file) = @_;
my $output = $file;
$output =~ s/\.inc$//;
open my $i_fh, "<", $file or die "$!";
view all matches for this distribution
view release on metacpan or search on metacpan
test_eng/Testout.pm view on Meta::CPAN
print(@_), return unless $ENV{AUTOMATED_TESTING};
warn("# in = `$in'\n", @_);
print("not ok $n\n");
}
sub update_seen ($) {
my $seen_now = CORE::shift;
@seen{keys %$seen_now} = values %$seen_now;
# my @VARS = map "\$$_", keys %$seen_now;
# eval 'use vars @VARS; 1' or die "use vars: $@";
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Math/SegmentedEnvelope.pm view on Meta::CPAN
}
} else { $at }
};
}
sub update_current_segment {
my ($self, $i) = @_;
$i = $self->_current_segment(defined($i) ? $i : ());
$self->_level_diff($self->level($i+1) - $self->level($i));
$self->_is_neg($self->curve($i) < 0 ? 1 : 0);
$self->_is_asc($self->_level_diff < 0 || $self->_is_neg ? -1 : 1);
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Maypole/Model/CDBI/FromCGI.pm view on Meta::CPAN
returns 1 upon success. It can take the same arguments as create_form_cgi.
If errors, it sets the cgi_update_errors.
=cut
sub update_from_cgi {
my ($self, $r, $opts) = @_;
$self->_croak( "update_from_cgi can only be called as an object method") unless ref $self;
my ($errors, $validated);
$self->{_cgi_update_error} = {};
$opts->{updating} = 1;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Mcache.pm view on Meta::CPAN
else {
return 0;
}
}
sub update {
my $self = shift;
my @in = @_;
my $key;
if ($in[2]) {
$key = "$in[2]";
view all matches for this distribution
view release on metacpan or search on metacpan
lib/MediaWiki/Bot.pm view on Meta::CPAN
my $revid = $data->{revisions}[0]->{revid};
return $revid;
}
sub update_rc {
warnings::warnif('deprecated', 'update_rc is deprecated, and may be removed '
. 'in a future release. Please use recentchanges(), which provides more '
. 'data, including rcid');
my $self = shift;
my $limit = shift || 'max';
view all matches for this distribution
view release on metacpan or search on metacpan
lib/MediaWiki/DumpFile/Compat/Pages.pod view on Meta::CPAN
$number =~ s/^,//;
return $number;
}
sub update_ui {
my $seconds = time - $start;
my $bytes = $pages->current_byte;
print STDERR " ", pretty_number($artcount), " articles; ";
print STDERR pretty_bytes($bytes), " processed; ";
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Meerkat/Collection.pm view on Meta::CPAN
$obj->_set_removed(1);
return; # false means removed
}
}
sub update {
state $check = compile( Object, Object, HashRef );
my ( $self, $obj, $update ) = $check->(@_);
my $data = $self->_try_mongo_op(
update => sub {
$self->_mongo_collection->find_one_and_update( { _id => $obj->_id },
view all matches for this distribution
view release on metacpan or search on metacpan
examples/events-to-ical.pl view on Meta::CPAN
} else {
print "Would add event\n";
};
}
sub update_event {
my( $caldav, $href, $event ) = @_;
if( ! $dryrun ) {
my $data = meetup_to_icalendar( $event, self => $attendee );
my $handle = $caldav->UpdateEvent( $href, $data);
} else {
view all matches for this distribution
view release on metacpan or search on metacpan
sub destroy
{
}
sub update_sprite
{
my ($self, $item) = @_;
my $cg = $self->{sprite}->{$item};
$cg->{cx} = $cg->{x} + $cg->{width}/2;
$cg->{cy} = $cg->{y} + $cg->{height}/2;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Metabase/Fact.pm view on Meta::CPAN
$self->{metadata}{core}{creator} = $obj;
}
# update_time can always be modified
sub update_time { $_[0]->{metadata}{core}{update_time} }
sub touch {
my ($self) = @_;
$self->{metadata}{core}{update_time} = _zulu_datetime();
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/PeakForest/REST_Client/ApiClient.pm view on Meta::CPAN
# update header and query param based on authentication setting
#
# @param array $headerParams header parameters (by ref)
# @param array $queryParams query parameters (by ref)
# @param array $authSettings array of authentication scheme (e.g ['api_key'])
sub update_params_for_auth {
my ($self, $header_params, $query_params, $auth_settings) = @_;
return $self->_global_auth_setup($header_params, $query_params)
unless $auth_settings && @$auth_settings;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Metabrik/Antivirus/Clamav.pm view on Meta::CPAN
kali => [ qw(clamav) ],
},
};
}
sub update {
my $self = shift;
my $datadir = $self->datadir;
my $cmd = "freshclam";
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Metabrik/Core/Context.pm view on Meta::CPAN
}
return \%available;
}
sub update_available {
my $self = shift;
my $h = $self->find_available;
my $r = $self->call(sub {
view all matches for this distribution
view release on metacpan or search on metacpan
t/103-sample-db-binder.t view on Meta::CPAN
sub id : PrimaryKey;
sub title : Col;
sub body : Col;
sub created : Col('created_on');
sub updated : Col('updated_on');
sub status : Col;
sub approver : HasOne('Person');
sub comments : HasMany('Comment', 'article');
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Minions/Implementation.pm view on Meta::CPAN
sprintf('$%s%s', $prefix, $slot),
\ $sym_val
);
}
sub update_args {}
1;
__END__
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Mirror/URI.pm view on Meta::CPAN
#####################################################################
# High Level Methods
sub update {
my $self = shift;
# Handle various shortcuts
unless ( $self->valid ) {
Carp::croak("Cannot update invalid mirror");
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Mobile/Wurfl.pm view on Meta::CPAN
print STDERR "commit dB ...\n";
$self->{dbh}->commit;
return 1;
}
sub update
{
my $self = shift;
print STDERR "get wurfl\n";
my $got_wurfl = $self->get_wurfl();
print STDERR "got wurfl: $got_wurfl\n";
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Model/Envoy.pm view on Meta::CPAN
$self->_dispatch('save', @_ );
return $self;
}
sub update {
my ( $self, $hashref ) = @_;
foreach my $attr ( grep { $_->get_write_method } $self->_get_all_attributes ) {
my $name = $attr->name;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Module/DevAid.pm view on Meta::CPAN
Called by do_release. Overwrites the changes file and commits
the change. (uses get_changes_content)
=cut
sub update_changes_file {
my $self = shift;
my $old_version = shift;
my $version = shift;
my $changes_str = $self->get_changes_content($old_version, $version);
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Module/Make.pm view on Meta::CPAN
# touch .stamps/new_environment
# tell user to now edit the `config.yaml` file
}
sub update_environment {
die "Can't update existing Module::Make environment yet";
}
sub sanity_check_new_cli_args {
my $self = shift;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Module/Provision/TraitFor/AddingFiles.pm view on Meta::CPAN
my $self = shift; my $flags = $self->cmd_line_flags; $flags->{test} = TRUE;
return $flags->{release} ? $self->release : $self->$_add_test_script;
}
sub update_file : method {
my $self = shift;
my $target = $self->next_argv or throw Unspecified, [ 'target' ];
my $index = {};
for my $t (map { my $k = $_->[ 0 ]; my $v = $_->[ 1 ];
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Module/Refresh.pm view on Meta::CPAN
Updates the cached "last modified" time for $file.
=cut
sub update_cache {
my $self = shift;
my $module_pm = shift;
# In case the module was not loaded successfully.
return unless defined $INC{$module_pm};
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Module/ScanDeps/FindRequires.pm view on Meta::CPAN
return 0;
}
########################################################################
sub update_requires {
########################################################################
my ( $self, $requires ) = @_;
my ( $fh, $tempfile ) = tempfile('requiresXXXXX');
view all matches for this distribution
view release on metacpan or search on metacpan
scripts/get_modules.pl view on Meta::CPAN
my $dist_info = update_dist_ini();
create_module( $count, $dist_info );
update_changes( $dist_info->{version}, $new_versions );
sub update_dist_ini {
my $dist_ini = curfile->dirname->child(qw/.. dist.ini/);
my $content = $dist_ini->slurp;
$content =~ s{version\s*=\s*(?<major>\d+\.)\K(?<minor>\d+)}{sprintf "%02d", $1+1}xmse;
my $version = $+{major} . sprintf( "%02d", $+{minor} + 1 );
scripts/get_modules.pl view on Meta::CPAN
);
return \%info;
}
sub update_changes ( $version, $new ) {
my $changes = curfile->dirname->child(qw/.. Changes/);
my $content = $changes->slurp;
my $today = localtime;
my $date = $today->ymd . ' ' . $today->hms;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/MogileFS/Admin.pm view on Meta::CPAN
return $self->_mod_class(@_, 'create');
}
# update a class's mindevcount within a domain
sub update_class {
my MogileFS::Admin $self = shift;
# wrapper around _mod_class(update)
return $self->_mod_class(@_, 'update');
}
lib/MogileFS/Admin.pm view on Meta::CPAN
return $self->_mod_host($host, $args, 'create');
}
# edit a host
sub update_host {
my MogileFS::Admin $self = shift;
my $host = shift;
return undef unless $host;
my $args = shift;
lib/MogileFS/Admin.pm view on Meta::CPAN
return 1;
}
# edit a device
sub update_device {
my MogileFS::Admin $self = shift;
return undef if $self->{readonly};
my $host = shift;
my $device = shift;
return undef unless $host;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/MogileFS/Plugin/FileRefs.pm view on Meta::CPAN
map { "ref_".$i++ => $_ } @{ $result }
});
}
sub update_schema {
my $store = Mgd::get_store();
my $dbh = $store->dbh();
$dbh->do($store->filter_create_sql(TABLE_fileref()))
or die "Failed to create table file_ref: ". $dbh->errstr;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/MogileFS/FID.pm view on Meta::CPAN
$self->{$_} = $row->{$_} foreach qw(dmid dkey length classid devcount);
$self->{_loaded} = 1;
return 1;
}
sub update_devcount {
my ($self, %opts) = @_;
my $no_lock = delete $opts{no_lock};
croak "Bogus options" if %opts;
lib/MogileFS/FID.pm view on Meta::CPAN
} else {
return $sto->update_devcount_atomic($fidid);
}
}
sub update_class {
my ($self, %opts) = @_;
my $classid = delete $opts{classid};
croak "Bogus options" if %opts;
view all matches for this distribution