view release on metacpan or  search on metacpan

lib/MangoX/Queue.pm  view on Meta::CPAN

    } else {
        return $self->collection->find_one({'_id' => $id});
    }
}

sub update {
    my ($self, $job, $callback) = @_;

    # FIXME Temporary fix to remove has_finished indicator from MangoX::Queue::Job
    $job = { map { $_ => $job->{$_} } grep { $_ !~ /^(?:has_finished|events)$/ } keys %$job };
    $job->{_id} = Mango::BSON::ObjectID->new($job->{_id}) if $self->no_binary_oid;

 view release on metacpan or  search on metacpan

devscripts/updateClasses.pl  view on Meta::CPAN

updateClass('lib/Maplat/Worker.pm', 'lib/Maplat/Worker', 'Maplat::Worker::');
updateClass('lib/Maplat/Web.pm', 'lib/Maplat/Web', 'Maplat::Web::');
print "Done\n";


sub updateClass {
    my ($filename, $dirname, $basename) = @_;

    print "updating $filename with $basename classes from $dirname\n";

    my @files = findModules($dirname, $basename);

 view release on metacpan or  search on metacpan

lib/Marathon/App.pm  view on Meta::CPAN

    my $self = shift;
    $self->_bail unless defined $self->{parent};
    return $self->{parent}->_post('/v2/apps', $self->get_updateable_values);
}

sub update {
    my ($self, $args) = @_;
    my $param = $args && $args->{force} && $args->{force} && $args->{force} !~ /false/i ? '?force=true' : ''; #default is false
    $self->_bail unless defined $self->{parent};
    return $self->{parent}->_put('/v2/apps/' . $self->id . $param, $self->get_updateable_values);
}

 view release on metacpan or  search on metacpan

t/2011-12-12.mkd.t  view on Meta::CPAN

각각의 포탈 사이트 별로 C<Web::Scraper> 모듈을 이용해서 페이지를 긁은 후
회차 관련 정보를 추출하도록 합니다.
네이트 웹툰에 대해 처리하는 코드는 다음과 같습니다.

    #!perl
    sub update_nate_link {
        my ( $id, @links ) = @_;
        ...
        my @chapters = sort {
            my $page_no_a = 0;
            my $page_no_b = 0;

t/2011-12-12.mkd.t  view on Meta::CPAN

웹툰의 정보를 긁어오는 함수는 C<update_all()>과 C<update()> 함수입니다.
C<update_all()> 함수는 내부적으로 C<update()> 함수를 호출하므로
C<update()> 함수를 간략하게 살펴보죠.

    #!perl
    sub update {
        my $id = shift;
    
        return unless $id;
    
        my $webtoon = $CONFIG->{webtoon};

 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 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 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 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 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 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 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 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 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 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 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 release on metacpan or  search on metacpan

Sprite.pm  view on Meta::CPAN

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;