view release on metacpan or  search on metacpan

GUI/withevap.ptk  view on Meta::CPAN

        -background => ($help->configure(-background))[3]],
    );

} # end see_view

sub update_command {

    # Create the command to execute.

    # BEGIN application specific command line processing.
    # END   application specific command line processing.

 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

t/basic.t  view on Meta::CPAN

    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';

 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;

 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::V19::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");
    }

 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' : '';

 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

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;