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::V23::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.pm  view on Meta::CPAN

  $self->batch_requests(addSheet => { properties => \%properties });

  return $self;
}

sub update_spreadsheet_properties {
  my $self = shift;

  state $check = compile_named(
    properties => HashRef,
    fields     => Str, { optional => 1 },

lib/Google/RestApi/SheetsApi4/Request/Spreadsheet.pm  view on Meta::CPAN

  );

  return $self;
}

sub update_protected_range {
  my $self = shift;

  state $check = compile_named(
    id               => Str,
    range            => Optional[HashRef],

 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

lib/Gtk2/Ex/DBITableFilter/BrowserBar.pm  view on Meta::CPAN

	$parent->{limit} = $limit;
	$parent->refresh;
	return 0;
}

sub update_progress_label {
	my ($self, $action) = @_;
	if ($action eq 'Counting') {
		$self->{progress}->{bar}->set_text('Counting');
		return 0;
	}

 view release on metacpan or  search on metacpan

lib/Gtk2/Ex/Datasheet/DBI.pm  view on Meta::CPAN

    
    return FALSE;
    
}

sub update_footer {
    
    my $self = shift;
    
    my @model_row;
    

 view release on metacpan or  search on metacpan

lib/Gtk2/Ex/DbLinker/AbForm.pm  view on Meta::CPAN

Reflect in the user interface the changes made after the data manager has been queried, or on the form creation

=cut

sub update {
    my ($self) = @_;
    my $id = id $self;
    my @col = $dman{ $id }->get_field_names;
    $log{ $id }->debug(
        "update cols are " . ( @col ? join( " ", @col ) : " cols undef " ) );

 view release on metacpan or  search on metacpan

examples/Forms/Sflang2.pm  view on Meta::CPAN

    $self->{sf_list}->update;

}

sub update_widgets_sensitivity {
     my $self = shift;
     my $rc = $self->{sform}->get_data_manager->row_count;
        $self->{log}->debug("rc ", $rc);
        if ( $rc == 0 ) {
            $self->{dnav}->widgets_set_sensitivity(0);

 view release on metacpan or  search on metacpan

devel/run.pl  view on Meta::CPAN

      ($vinverted?"vinv":"vnorm"),
        "policy $update_policy\n";
}
# make();

sub update {
  if (defined $dragger) {
    make ();
  }
}
{

 view release on metacpan or  search on metacpan

lib/Gtk2/Ex/FormFactory.pm  view on Meta::CPAN

	$self->connect_signals;
	
	1;
}

sub update {
	my $self = shift;
	$self->update_all;
}

sub ok {

 view release on metacpan or  search on metacpan

lib/Gtk2/Ex/Geo/Overlay.pm  view on Meta::CPAN

## @method update_image($annotations, $user_param)
# @param annotations A subroutine for user annotations. Called like
# this: $annotations->($overlay, $pixmap, $gc, $user_param).
# @param user_param User parameter for the annotations.
# @brief Updates the image on the screen to show the changes in pixmap.
sub update_image {
    my($self, $annotations, $user_param) = @_;
    return unless $self->{pixbuf};
    $self->{image}->set_from_pixbuf(undef);
    $self->{pixmap} = $self->{pixbuf}->render_pixmap_and_mask(0);
    my $gc = Gtk2::Gdk::GC->new($self->{pixmap});

 view release on metacpan or  search on metacpan

lib/Gtk2/Ex/ICal/Recur.pm  view on Meta::CPAN

	bless ($self, $class);
	$self->{widget} = $self->package_all;
	return $self;
}

sub update_preview {
	my ($self) = @_;
	my $temp = [
		['Generating Preview'],
		['Please wait...'],
	];

lib/Gtk2/Ex/ICal/Recur.pm  view on Meta::CPAN

		}
	}
	$self->update_ui_from_model(\@monthdays, $hash, '/^/by week day/', $level);
}

sub update_ui_from_model {
	my ($self, $list, $hash, $string, $level) = @_;
	for (my $i=0; $i<=$#{@$list}; $i++) {
		$self->{recurbox}->{buttons}->[$level]->[$i]->{simplemenu}->get_widget($string.$hash->{$list->[$i]})->activate;
		$self->{recurbox}->{buttons}->[$level]->[$i]->{next}->set_sensitive(FALSE);
		if ($i<$#{@$list}) {

 view release on metacpan or  search on metacpan

lib/Gtk2/Ex/VolumeButton.pm  view on Meta::CPAN

	$self->{image} = Gtk2::Image->new();
	$self->{image}->show();
	$self->add( $self->{image} );
}

sub update_pixbufs {
	my $self = shift;

	for(qw( mute zero min medium max )) {
		if( ref $self->{$_.'_image'} && $self->{$_.'_image'}->isa('Gtk2::Gdk::Pixbuf') ) {
			$self->{pixbufs}->{$_} = $self->{$_.'_image'};

lib/Gtk2/Ex/VolumeButton.pm  view on Meta::CPAN

	$self->{volume} = $vol;
	$self->update_image( $vol );
	$self->signal_emit( 'volume_changed', $vol );
}

sub update_image {
	my($self, $vol) = @_;
	my $id;
	
	$vol = $self->{volume} unless defined $vol;

 view release on metacpan or  search on metacpan

lib/Gtk2/Ex/TableBits.pm  view on Meta::CPAN

                     'x-options',
                     'y-options',
                     'x-padding',
                     'y-padding');

sub update_attach {
  my ($table, $child, @args) = @_;
  ### TableBits update_attach: "$child", @args

  if (! _child_is_attached_at($table, $child, @args)) {
    ### must re-attach ...

 view release on metacpan or  search on metacpan

examples/progress.pl  view on Meta::CPAN

exit 0;


# Helper to update all of the progress widgets in one swoop
sub update_progress {
    foreach my $p (@progress) {
        $p->set_fraction($fract/1000);
    }
}

 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;

 view release on metacpan or  search on metacpan

lib/Gtk3/Ex/DBI/Datasheet.pm  view on Meta::CPAN

    
    return FALSE;
    
}

sub update_footer {
    
    my $self = shift;
    
    my @model_row;
    

 view release on metacpan or  search on metacpan

lib/Gtk3/ImageView.pm  view on Meta::CPAN

sub get_resolution_ratio {
    my ($self) = @_;
    return $self->get('resolution-ratio');
}

sub update_cursor {
    my ( $self, $x, $y ) = @_;
    my $pixbuf_size = $self->get_pixbuf_size;
    if ( not defined $pixbuf_size ) { return }
    my $win    = $self->get_window;
    my $cursor = $self->get_tool->cursor_at_point( $x, $y );

 view release on metacpan or  search on metacpan

lib/GuiBuilder.pm  view on Meta::CPAN

  if($DBG_ON) { print("max_frame = $max_frame.\n"); }
  return $max_frame;
}

#------------------------------------------------------------------------------
sub update_gui_file {
  my ($title) = @_;
  my $max_frames;
  my %row_start_for_frame;
  my %num_row_in_frame;
  my $tmp_file_name = "tmp.gui";

lib/GuiBuilder.pm  view on Meta::CPAN

  }
  return $field_str;
} # get_field_text

#------------------------------------------------------------------------------
sub update_list {
  my ($list_box) = @_;

  my $list_size = $list_box -> size();
  for(my $i = 0; $i < $list_size; $i++) {
    $list_box -> delete(0);