view release on metacpan or search on metacpan
lib/Gideon/Driver.pm view on Meta::CPAN
my $order = delete $query{-order};
$driver->_find( $target, \%query, $order, 1 )->[0];
}
sub update {
my ( $driver, $target, %changes ) = @_;
my $is_object = ref $target;
Gideon::Exception::ObjectNotInStore->throw
view release on metacpan or search on metacpan
lib/Giovanni/Stages.pm view on Meta::CPAN
# the idea is to have different plugins that can extend the existing
# stages real easy. If this stages approach turns out to be too limited
# (ie 1000s of stages in one file, not a good look) we may need to
# rethink this approach.
sub update_cache {
my ($self, $ssh) = @_;
$self->log($ssh, "running update_cache task ...");
return;
}
view release on metacpan or search on metacpan
my @o_logs = $repo->run( log => '--pretty=oneline', 'origin/master');
is(@o_logs, 2, 'Second commit push successful');
}
# And on to testing the actual code...
sub update_foo {
my $str = shift;
open(my $foo, '>>', "$ld/foo");
if ($str) {
print $foo "$str\n";
}
view release on metacpan or search on metacpan
lib/Git/MoreHooks/CheckCommitBase.pm view on Meta::CPAN
my %opts = ( 'old_commit' => ':0', 'new_commit' => undef, 'gerrit-opts' => undef );
return _call_user_hook( $git, 'pre-commit', \%opts );
}
# This routine can act both as an update or a pre-receive hook.
sub update_callback {
$log->tracef( 'Entering update_callback(%s)', ( join q{:}, @_ ) );
my ($git) = @_;
my %opts = ( 'old_commit' => ':0', 'new_commit' => 0, 'gerrit-opts' => undef );
return _call_user_hook( $git, 'update', \%opts );
}
view release on metacpan or search on metacpan
lib/Git/PurePerl.pm view on Meta::CPAN
$ref = 'master' unless $ref;
$self->update_ref( $ref, $object->sha1 );
}
}
sub update_ref {
my ( $self, $refname, $sha1 ) = @_;
my $ref = file( $self->gitdir, 'refs', 'heads', $refname );
$ref->parent->mkpath;
my $ref_fh = $ref->openw;
$ref_fh->print($sha1) || die "Error writing to $ref";
view release on metacpan or search on metacpan
lib/Git/Release.pm view on Meta::CPAN
my %tracking = map { split ':', $_ , 2 } @lines;
return %tracking;
}
sub update_remote_refs {
my $self = shift;
$self->repo->command_oneline(qw(remote update --prune));
}
sub _new_branch {
view release on metacpan or search on metacpan
lib/Git/ReleaseRepo/Command/update.pm view on Meta::CPAN
: "Updating all outdated:\n"
. join "\n", map { sprintf "\t\%s", $_ } sort @$args;
$git->run( commit => ( @$args ), -m => $message );
};
sub update_submodule {
my ( $self, $module, $branch ) = @_;
$branch ||= "master";
my $git = $self->git;
if ( !$git->submodule->{ $module } ) {
die "Cannot add $module: Submodule does not exist\n";
view release on metacpan or search on metacpan
t/20-simple.t view on Meta::CPAN
my $home = cwd;
local $/ = chr rand 128;
# small helper sub
sub update_file {
my ( $file, $content ) = @_;
open my $fh, '>', $file or die "Can't open $file: $!";
print {$fh} $content;
close $fh;
}
view release on metacpan or search on metacpan
lib/Git/IndexInfo.pm view on Meta::CPAN
return ++$self->{nr};
}
undef;
}
sub update {
my ($self, $mode, $hash, $path) = @_;
if (print { $self->{gui} } $mode, ' ', $hash, "\t", $path, "\0") {
return ++$self->{nr};
}
undef;
view release on metacpan or search on metacpan
scripts/generate-rss.pl view on Meta::CPAN
$gh->issues_and_comments(
#Perl => 'perl5'
$since,
);
sub update_file( $fn, $content ) {
my $needs_update = ! -e $fn;
if( ! $needs_update ) {
open my $old, '<', $fn
or die "Couldn't read old content from '$fn': $!";
binmode $old, ':utf8';
view release on metacpan or search on metacpan
lib/GitLab/API/v3.pm view on Meta::CPAN
Sends a C<PUT> request to C</projects/:id/variables/:key> and returns the decoded/deserialized response body.
=cut
sub update_variable {
my $self = shift;
croak 'update_variable must be called with 2 to 3 arguments' if @_ < 2 or @_ > 3;
croak 'The #1 argument ($id) to update_variable must be a scalar' if ref($_[0]) or (!defined $_[0]);
croak 'The #2 argument ($key) to update_variable must be a scalar' if ref($_[1]) or (!defined $_[1]);
croak 'The last argument (\%params) to update_variable must be a hash ref' if defined($_[2]) and ref($_[2]) ne 'HASH';
lib/GitLab/API/v3.pm view on Meta::CPAN
Sends a C<PUT> request to C</runners/:id> and returns the decoded/deserialized response body.
=cut
sub update_runner {
my $self = shift;
croak 'update_runner must be called with 1 to 2 arguments' if @_ < 1 or @_ > 2;
croak 'The #1 argument ($id) to update_runner must be a scalar' if ref($_[0]) or (!defined $_[0]);
croak 'The last argument (\%params) to update_runner must be a hash ref' if defined($_[1]) and ref($_[1]) ne 'HASH';
my $params = (@_ == 2) ? pop() : undef;
lib/GitLab/API/v3.pm view on Meta::CPAN
Sends a C<PUT> request to C</application/settings> and returns the decoded/deserialized response body.
=cut
sub update_settings {
my $self = shift;
croak 'update_settings must be called with 0 to 1 arguments' if @_ < 0 or @_ > 1;
croak 'The last argument (\%params) to update_settings must be a hash ref' if defined($_[0]) and ref($_[0]) ne 'HASH';
my $params = (@_ == 1) ? pop() : undef;
my $path = sprintf('/application/settings', (map { uri_escape($_) } @_));
lib/GitLab/API/v3.pm view on Meta::CPAN
Sends a C<PUT> request to C</projects/:project_id/repository/tags/:tag_name/release>.
=cut
sub update_release {
my $self = shift;
croak 'update_release must be called with 2 to 3 arguments' if @_ < 2 or @_ > 3;
croak 'The #1 argument ($project_id) to update_release must be a scalar' if ref($_[0]) or (!defined $_[0]);
croak 'The #2 argument ($tag_name) to update_release must be a scalar' if ref($_[1]) or (!defined $_[1]);
croak 'The last argument (\%params) to update_release must be a hash ref' if defined($_[2]) and ref($_[2]) ne 'HASH';
view release on metacpan or search on metacpan
lib/GitLab/API/v4.pm view on Meta::CPAN
Sends a C<PUT> request to C<groups/:group_id/members/:user_id> and returns the decoded response content.
=cut
sub update_group_member {
my $self = shift;
croak 'update_group_member must be called with 2 to 3 arguments' if @_ < 2 or @_ > 3;
croak 'The #1 argument ($group_id) to update_group_member must be a scalar' if ref($_[0]) or (!defined $_[0]);
croak 'The #2 argument ($user_id) to update_group_member must be a scalar' if ref($_[1]) or (!defined $_[1]);
croak 'The last argument (\%params) to update_group_member must be a hash ref' if defined($_[2]) and ref($_[2]) ne 'HASH';
lib/GitLab/API/v4.pm view on Meta::CPAN
Sends a C<PUT> request to C<projects/:project_id/members/:user_id> and returns the decoded response content.
=cut
sub update_project_member {
my $self = shift;
croak 'update_project_member must be called with 2 to 3 arguments' if @_ < 2 or @_ > 3;
croak 'The #1 argument ($project_id) to update_project_member must be a scalar' if ref($_[0]) or (!defined $_[0]);
croak 'The #2 argument ($user_id) to update_project_member must be a scalar' if ref($_[1]) or (!defined $_[1]);
croak 'The last argument (\%params) to update_project_member must be a hash ref' if defined($_[2]) and ref($_[2]) ne 'HASH';
lib/GitLab/API/v4.pm view on Meta::CPAN
Sends a C<PUT> request to C<projects/:project_id/releases/:tag_name> and returns the decoded response content.
=cut
sub update_release {
my $self = shift;
croak 'update_release must be called with 2 to 3 arguments' if @_ < 2 or @_ > 3;
croak 'The #1 argument ($project_id) to update_release must be a scalar' if ref($_[0]) or (!defined $_[0]);
croak 'The #2 argument ($tag_name) to update_release must be a scalar' if ref($_[1]) or (!defined $_[1]);
croak 'The last argument (\%params) to update_release must be a hash ref' if defined($_[2]) and ref($_[2]) ne 'HASH';
lib/GitLab/API/v4.pm view on Meta::CPAN
Sends a C<PUT> request to C<projects/:project_id/releases/:tag_name/assets/links/:link_id> and returns the decoded response content.
=cut
sub update_release_link {
my $self = shift;
croak 'update_release_link must be called with 3 to 4 arguments' if @_ < 3 or @_ > 4;
croak 'The #1 argument ($project_id) to update_release_link must be a scalar' if ref($_[0]) or (!defined $_[0]);
croak 'The #2 argument ($tag_name) to update_release_link must be a scalar' if ref($_[1]) or (!defined $_[1]);
croak 'The #3 argument ($link_id) to update_release_link must be a scalar' if ref($_[2]) or (!defined $_[2]);
lib/GitLab/API/v4.pm view on Meta::CPAN
Sends a C<PUT> request to C<runners/:runner_id> and returns the decoded response content.
=cut
sub update_runner {
my $self = shift;
croak 'update_runner must be called with 1 to 2 arguments' if @_ < 1 or @_ > 2;
croak 'The #1 argument ($runner_id) to update_runner must be a scalar' if ref($_[0]) or (!defined $_[0]);
croak 'The last argument (\%params) to update_runner must be a hash ref' if defined($_[1]) and ref($_[1]) ne 'HASH';
my $params = (@_ == 2) ? pop() : undef;
lib/GitLab/API/v4.pm view on Meta::CPAN
Sends a C<PUT> request to C<application/settings> and returns the decoded response content.
=cut
sub update_settings {
my $self = shift;
croak 'update_settings must be called with 0 to 1 arguments' if @_ < 0 or @_ > 1;
croak 'The last argument (\%params) to update_settings must be a hash ref' if defined($_[0]) and ref($_[0]) ne 'HASH';
my $params = (@_ == 1) ? pop() : undef;
my $options = {};
lib/GitLab/API/v4.pm view on Meta::CPAN
Sends a C<PUT> request to C<projects/:project_id/repository/tags/:tag_name/release> and returns the decoded response content.
=cut
sub update_tag_release {
my $self = shift;
croak 'update_tag_release must be called with 2 to 3 arguments' if @_ < 2 or @_ > 3;
croak 'The #1 argument ($project_id) to update_tag_release must be a scalar' if ref($_[0]) or (!defined $_[0]);
croak 'The #2 argument ($tag_name) to update_tag_release must be a scalar' if ref($_[1]) or (!defined $_[1]);
croak 'The last argument (\%params) to update_tag_release must be a hash ref' if defined($_[2]) and ref($_[2]) ne 'HASH';
view release on metacpan or search on metacpan
lib/Github/Import.pm view on Meta::CPAN
[ push => @args ],
print_output => 1,
);
}
sub update_config_for_pull {
my $self = shift;
my $remote = $self->remote;
$self->run_git(
[ config => 'branch.master.remote', $remote ],
view release on metacpan or search on metacpan
bin/perli11ndoc view on Meta::CPAN
$self->{result_buffer} = $result_buffer;
$self->{result_view} = $result_view;
}
sub update_gir_view {
my ($self) = @_;
$self->{suppress_gir_view_selection_changes} = TRUE;
$self->{gir_model}->clear;
bin/perli11ndoc view on Meta::CPAN
my ($self, $path) = @_;
my $name = $self->{parser}->format_node_name_by_path ($path);
$self->{path_bar}->append ($name, $path); # indirectly calls update_results
}
sub update_results {
my ($self, $path) = @_;
$self->display_results ($self->{parser}->format_node_by_path ($path));
# Show and select the correponding tree entry.
$self->{gir_model}->foreach (sub {
bin/perli11ndoc view on Meta::CPAN
sub set_update_func {
my ($self, $func) = @_;
$self->{update_func} = $func;
}
sub update_buttons {
my ($self) = @_;
$self->{back_button}->set_sensitive ($self->{path_label}->can_go_back);
$self->{forward_button}->set_sensitive ($self->{path_label}->can_go_forward);
}
bin/perli11ndoc view on Meta::CPAN
sub set_update_func {
my ($self, $func) = @_;
$self->{update_func} = $func;
}
sub update {
my ($self) = @_;
$self->set_markup ($self->_format_children);
if (defined $self->{current_child} && defined $self->{update_func}) {
my $child = $self->{children}->[$self->{current_child}];
$self->{update_func}->($child->{name}, $child->{path});
view release on metacpan or search on metacpan
bin/perlmine.pl view on Meta::CPAN
set_timer_label();
$image_but->set_image(Gtk2::Image->new_from_file($image{'smile'}));
return FALSE;
}
sub update_label {
$elapse_time++;
set_timer_label();
return TRUE;
}
view release on metacpan or search on metacpan
examples/v201809/basic_operations/update_ad_group.pl view on Meta::CPAN
my $ad_group_id = "INSERT_AD_GROUP_ID_HERE";
# Set this to undef if you do not want to update the CPC bid.
my $cpc_bid_micro_amount = "INSERT_CPC_BID_MICRO_AMOUNT_HERE";
# Example main subroutine.
sub update_ad_group {
my ($client, $ad_group_id, $cpc_bid_micro_amount) = @_;
# Create an ad group with the specified ID.
# Pause the ad group.
my $ad_group = Google::Ads::AdWords::v201809::AdGroup->new({
id => $ad_group_id,
view release on metacpan or search on metacpan
examples/account_management/update_user_access.pl view on Meta::CPAN
my $customer_id = "INSERT_CUSTOMER_ID_HERE";
my $email_address = "INSERT_EMAIL_ADDRESS_HERE";
# See Google::Ads::GoogleAds::V20::Enums::AccessRoleEnum for optional values.
my $access_role = "INSERT_ACCESS_ROLE_HERE";
sub update_user_access {
my ($api_client, $customer_id, $email_address, $access_role) = @_;
my $user_id = get_user_access($api_client, $customer_id, $email_address);
if (defined $user_id) {
modify_user_access($api_client, $customer_id, $user_id, $access_role);
view release on metacpan or search on metacpan
lib/Google/Client/Files.pm view on Meta::CPAN
url => $url
);
return $json;
}
sub update_media {
my ($self, $id, $params, $content) = @_;
confess("No ID provided") unless ($id);
unless ( $content && %$content ) {
confess("No content provided to update");
}
lib/Google/Client/Files.pm view on Meta::CPAN
content => encode_json($content)
);
return $json;
}
sub update {
my ($self, $id, $params, $content) = @_;
confess("No ID provided") unless ($id);
unless ( $content && %$content ) {
confess("No content provided to update");
}
view release on metacpan or search on metacpan
samples/google.pm view on Meta::CPAN
}
return @out ;
}
sub update {
my $self = shift ;
$self = $self->db unless ref $self ;
my $token = shift or return warn 'requires token' ;
my @changes = $self->about( $token ) ;
view release on metacpan or search on metacpan
lib/Google/RestApi/SheetsApi4/Request/Spreadsheet/Worksheet.pm view on Meta::CPAN
properties => { gridProperties => { $frozen => $count }, },
fields => "gridProperties.$frozen",
);
}
sub update_worksheet_properties {
my $self = shift;
state $check = compile_named(
properties => HashRef,
fields => Str, { optional => 1 },
view release on metacpan or search on metacpan
lib/Graph/Chart.pm view on Meta::CPAN
$self->{ img } = $png_out;
return $self->{ img };
}
###########################################################################
sub update
{
my $self = shift;
my $object = shift;
# carp Dumper($self);
my $image_gd = GD::Image->new( $self->{img});
view release on metacpan or search on metacpan
t/04_dijkstra.t view on Meta::CPAN
is_deeply([$g->dijkstra("B", "X")], [], "returns empty list for unknown nodes pt. 1");
is_deeply([$g->dijkstra("X", "B")], [], "returns empty list for unknown nodes pt. 2");
# test usage of a different queue module - here: dummy module that returns nothing
# and will therefore cause failure to find a path
{ package NullQueue; sub insert { } sub update { } sub pop { undef; } sub delete { } }
$g->{_queue_maker} = sub { bless({}, "NullQueue"); };
is_deeply([$g->dijkstra("A", "B")], [], "can use different queue module");
# here: actual module, should return same result now.
SKIP: {
view release on metacpan or search on metacpan
examples/old_examples/graphics/polyTexture.pl view on Meta::CPAN
);
$iren->Initialize;
$MW->withdraw;
# Update the scalars in the structured points with the probe's output
#
sub updateStructuredPoints
{
$structuredPoints->GetPointData->SetScalars($probe->GetOutput->GetPointData->GetScalars);
}
# Transform the probe and resample
#
view release on metacpan or search on metacpan
lib/Graphviz/DSL/Component.pm view on Meta::CPAN
package Graphviz::DSL::Component;
use strict;
use warnings;
sub update_attributes {
my ($self, $attrs) = @_;
OUTER:
for my $attr (@{$attrs}) {
my ($key, $val) = @{$attr};
view release on metacpan or search on metacpan
lib/Group/Git/Cmd/Pull.pm view on Meta::CPAN
'upload-pack=s',
'progress',
]
);
sub update_start { shift->pull_start($_[0], 'update') }
sub pull_start {
$opt->process;
return;
}
sub update { shift->pull($_[0], 'update') }
sub pull {
my ($self, $name, $type) = @_;
$type ||= 'pull';
my $repo = $self->repos->{$name};
view release on metacpan or search on metacpan
lib/GrowthForecast/Data.pm view on Meta::CPAN
$data->{subtract} = $subtract;
}
$self->inflate_row($data);
}
sub update {
my ($self, $service, $section, $graph, $number, $mode, $color, $timestamp ) = @_;
my $dbh = $self->dbh;
$dbh->begin_work;
my $for_update = ( $dbh->connect_info->[0] =~ /^(?i:dbi):mysql:/ ) ? ' FOR UPDATE' : '';
lib/GrowthForecast/Data.pm view on Meta::CPAN
$dbh->commit;
$self->inflate_row($row);
}
sub update_graph {
my ($self, $id, $args) = @_;
my @update = map { delete $args->{$_} } qw/service_name section_name graph_name description sort gmode color type stype llimit ulimit sllimit sulimit/;
my $meta = encode_json($args);
my $dbh = $self->dbh;
$dbh->query(
lib/GrowthForecast/Data.pm view on Meta::CPAN
@update, $meta, $id
);
return 1;
}
sub update_graph_description {
my ($self, $id, $description) = @_;
my $dbh = $self->dbh;
$dbh->query(
'UPDATE graphs SET description=? WHERE id = ?',
$description, $id
lib/GrowthForecast/Data.pm view on Meta::CPAN
$service, $section, $graph, @update, $meta, time, time
);
$self->get_complex($service, $section, $graph);
}
sub update_complex {
my ($self, $id, $args) = @_;
my @update = map { delete $args->{$_} } qw/service_name section_name graph_name description sort/;
my $meta = encode_json($args);
$self->dbh->query(
'UPDATE complex_graphs SET service_name = ?, section_name = ?, graph_name = ? ,
lib/GrowthForecast/Data.pm view on Meta::CPAN
return [] unless $list;
my @ret = map { $self->inflate_complex_row($_) } @$list;
\@ret;
}
sub update_vrule {
my ($self, $graph_path, $time, $color, $desc, $dashes) = @_;
$self->dbh->query(
'INSERT INTO vrules (graph_path,time,color,description,dashes) values (?,?,?,?,?)',
$graph_path, $time, $color, $desc, $dashes,
view release on metacpan or search on metacpan
lib/Gruntmaster/Data.pm view on Meta::CPAN
$st[$_]->{rank} = $st[$_ - 1]->{rank} + ($st[$_]->{score} < $st[$_ - 1]->{score}) for 1 .. $#st;
\@st
}
sub update_status {
my $jobs = $db->select('jobs', 'id,owner,problem,result', {-not_bool => 'private'}, 'id');
my %hash;
while ($jobs->into(my ($id, $owner, $problem, $result))) {
$hash{$problem, $owner} = [$id, $result ? 0 : 1];
view release on metacpan or search on metacpan
Bonobo/samples/bonobo-hello.pl view on Meta::CPAN
warn "created view $self\n";
return $self;
}
sub update {
my ($view, $embeddable) = @_;
warn "update with $embeddable->{text}\n";
$view->{label}->set($embeddable->{text}) if ($embeddable && exists $embeddable->{text});
}
view release on metacpan or search on metacpan
lib/Gtk2/CV/ImageWindow.pm view on Meta::CPAN
($self->{rsw}, $self->{rsh}) = ($sw, $sh);
$self->auto_resize if $self->{image};
}
}
sub update_properties {
my ($self) = @_;
(undef, undef, my @data) = $_[0]->{window}->property_get (
$_[0]{frame_extents_property},
Gtk2::Gdk::Atom->intern ("CARDINAL", 0),
lib/Gtk2/CV/ImageWindow.pm view on Meta::CPAN
$self->set_subimage (
$self->{subimage}->new_subpixbuf ($x1, $y1, $w, $h)
);
}
sub update_mpv_window {
my ($self) = @_;
# force a resize of the mpv window, otherwise it doesn't receive
# a configureevent :/
$self->{mpv_window}->window->resize (1, 1),
view release on metacpan or search on metacpan
examples/offscreen_rotation.pl view on Meta::CPAN
$w= max($xa,$xb,$xc,$xd) -$x;
$h= max($ya,$yb,$yc,$yd) -$y;
return Gtk2::Gdk::Rectangle->new($x,$y,$w,$h);
}
sub update_matrix {
my $self=shift;
my ($x,$y,$w,$h)= $self->allocation->values;
my $border= $self->get_border_width;
$x+=$border; $w-=2*$border;
$y+=$border; $h-=2*$border;