Result:
found more than 1108 distributions - search limited to the first 2001 files matching your query ( run in 0.550 )


DynGig-Range-Cluster

 view release on metacpan or  search on metacpan

lib/DynGig/Range/Cluster/Client.pm  view on Meta::CPAN

=head2 update()

Returns I<true> if successful, I<false> otherwise.

=cut
sub update
{
    my $this = shift;
    my $param = $this->{param};
    my $client = DynGig::Multiplex::TCP->new( $this->{server} => $param );

 view all matches for this distribution


Dyns-Client

 view release on metacpan or  search on metacpan

lib/Dyns/Client.pm  view on Meta::CPAN

			-ip => 'optional ip'
	  		);

=cut

sub update {
	my ($self, %args) = @_;

	my $username 	= $args{-username}	
			|| do { carp "username mandatory"; return undef; };
	my $password	= $args{-password}

 view all matches for this distribution


E2-Interface

 view release on metacpan or  search on metacpan

ClientVersion.pm  view on Meta::CPAN

our @ISA = qw(E2::Ticker);
our $DEBUG; *DEBUG = *E2::Interface::DEBUG;

sub new;

sub update;

sub clients;

sub new { 
	my $arg   = shift;

ClientVersion.pm  view on Meta::CPAN

sub clients {
	my $self = shift	or croak "Usage: clients E2CLIENTVERSION";
	return $self->{clients};
}

sub update {
	my $self = shift or croak "Usage: update E2CLIENTVERSION";

	warn "E2::ClientVersion::Update\n"	if $DEBUG > 1;

	my $handlers = {

 view all matches for this distribution


EAI-Wrap

 view release on metacpan or  search on metacpan

lib/EAI/DB.pm  view on Meta::CPAN

		return 1;
	}
}

# update data in database
sub updateInDB ($$) {
	my ($DB,$data) = @_;
	my $logger = get_logger();
	my $tableName = $DB->{tablename};
	my @keycolumns = @{$DB->{keyfields}} if $DB->{keyfields};
	eval {

 view all matches for this distribution


EBook-Gutenberg

 view release on metacpan or  search on metacpan

lib/EBook/Gutenberg.pm  view on Meta::CPAN


    return 1;

}

sub update {

    my $self = shift;

    my $catalog = EBook::Gutenberg::Catalog->new($self->{ Catalog });

 view all matches for this distribution


EMDIS-ECS

 view release on metacpan or  search on metacpan

script/ecs_scan_mail  view on Meta::CPAN

    update_statistics(\@nodelist, $nodes);
}

# ----------------------------------------------------------------------
# Inspect "store" folder and compute message statistics
sub update_statistics
{
    my $nodelist = shift;
    my $nodes = shift;

    # get sorted list of files in directory

 view all matches for this distribution


ETLp

 view release on metacpan or  search on metacpan

lib/ETLp/Audit/Browser/Controller/Schedule.pm  view on Meta::CPAN

        $self->conf->param('root_url') . '/schedule/edit/' . $schedule_id);
}

# Process ajax call to update the section list drop down if the config item
# changes
sub update_sections {
    my $self        = shift;
    my $config_file = $self->query->param('config_file');
    my $show_blank  = $self->query->param('show_blank') || 0;
    
    return $self->model->get_section_options(

lib/ETLp/Audit/Browser/Controller/Schedule.pm  view on Meta::CPAN

    return $self->redirect($self->conf->param('root_url') . '/schedule/');
}

# This runmode is used to return the chain of pipelines dependent on the one
# provided
sub update_dependencies {
    my $self        = shift;
    my $config_file = $self->query->param('config');
    my $section     = $self->query->param('section');

    if ($section =~ /^$config_file\-(.*)$/) {

 view all matches for this distribution


EasyDBAccess

 view release on metacpan or  search on metacpan

EasyDBAccess.pm  view on Meta::CPAN

  my $ra_param = build_array($filter, $rh_data, $ra);

  return $self->execute($sql, $ra_param);
}

sub update {
  my $self = shift;
  my ($sql, $filter, $rh_data, $ra_param) = @_;

  my ($item_str, $item_bind_param, $flag, $item_str2) = build_update($filter, $rh_data);

 view all matches for this distribution


Echo-StreamServer

 view release on metacpan or  search on metacpan

lib/Echo/StreamServer/Users.pm  view on Meta::CPAN

                }
        }
	return $json_hash_ref;
}

sub update {
	my ($self, $identity_url, $subject, $content) = @_;

	unless (grep(m/^$subject$/, @USER_SUBJECTS)) {
		die("Users API must update a valid subject (" . join(', ', @USER_SUBJECTS) . "), not '$subject'");
	}

 view all matches for this distribution


Echo360

 view release on metacpan or  search on metacpan

lib/Echo360.pm  view on Meta::CPAN

	}

	return XML::Simple->new()->XMLin($resp->content)
}

sub update {
	my ($self, $uri, $xml) = @_;
	$uri = "/$uri" unless $uri =~/^\//;

	print "PUT URI: $uri\n" if $self->{DEBUG};
	

 view all matches for this distribution


EdgeExpressDB

 view release on metacpan or  search on metacpan

lib/EEDB/Chrom.pm  view on Meta::CPAN

  Returntype   : $self
  Exceptions   : none

=cut

sub update {
  my $self = shift;
  
  return undef unless($self->database and $self->id);
  
  my $dbh = $self->database->get_connection;  

 view all matches for this distribution


Egg-Plugin-SessionKit

 view release on metacpan or  search on metacpan

lib/Egg/Model/Session/Base/DBI.pm  view on Meta::CPAN

	my $self= shift;
	my $data= shift || croak q{I want session data.};
	my $id  = shift || $self->session_id || croak q{I want session id.};
	$self->_do($self->_insert, $id, $$data, localtime(time)->mysql_datetime);
}
sub update {
	my $self= shift;
	my $data= shift || croak q{I want session data.};
	my $id  = shift || $self->session_id || croak q{I want session id.};
	$self->_do($self->_update, $$data, localtime(time)->mysql_datetime, $id);
}

 view all matches for this distribution


Egg-Release-DBI

 view release on metacpan or  search on metacpan

lib/Egg/Mod/EasyDBI.pm  view on Meta::CPAN

	$self->{es}->debug($sql);
	$self->{es}->dbh->do($sql, undef, values %$a)
	> 0 ? 1: 0;
}
*in= \&insert;
sub update {
	my $self= shift;
	my $a= $argc->_update(@_);
	my $sql= qq{UPDATE $self->{dbname} SET }
	       . join(', ', keys %{$a->{up}}). qq{ WHERE $a->{st}};
	$self->{es}->debug($sql);
	$self->{es}->dbh->do($sql, undef, (values %{$a->{up}}), @{$a->{ex}})
	> 0 ? 1: 0;
}
*up= \&update;
sub update_insert {
	my $self= shift;
	return "0E0" if $self->update(@_);
	if (my $error= $self->{es}->dbh->errstr) { die $error }
	$self->insert(@_);
}

 view all matches for this distribution


Eixo-Queue

 view release on metacpan or  search on metacpan

lib/Eixo/Queue/MongoDriver.pm  view on Meta::CPAN

        %{$job->to_hash}
    });

}

sub updateJob{
	my ($self, $job, $collection) = @_;

	$self->getCollection($collection)->update(

        {_id=>$job->id} ,

 view all matches for this distribution


Ekahau

 view release on metacpan or  search on metacpan

examples/ekahau-events-example.pl  view on Meta::CPAN

  {
      $ek->dispatch;
  }
}

sub update_devices
{
  my($resp)=@_;

  foreach my $dev (grep { !$macaddr{$_} } keys %{$resp->{params}})
  {
    my $prop = $ek->request_device_properties($dev)
      or die "Couldn't get properties for '$dev'\n";
  }
}

sub update_device_properties
{
  my($prop)=@_;

  my $dev = $prop->{args}[0];
  $macaddr{$dev}=$prop->{params}{'NETWORK.MAC'};
  $ek->start_location_track($dev);
  $ek->start_area_track({ 'EPE.NUMBER_OF_AREAS' => $num_guesses }, $dev);
}

sub update_areas
{
    my($loc)=@_;
    my $dev = $loc->{args}[0];
    my $floor = $floor{$loc->{params}{contextId}};

examples/ekahau-events-example.pl  view on Meta::CPAN

	}
    }
    print "ISEE Ekahau.$macaddr{$dev} FROM $where$coord$relcoord AT ",time," CONFIDENCE ",$loc->{params}{probability},"$ormaybe\n";
}

sub update_locations
{
    my($loc)=@_;
    my $dev = $loc->{args}[0];

    $lastloc{$dev}{x} = $loc->{params}{latestX};
    $lastloc{$dev}{y} = $loc->{params}{latestY};
}

sub update_contexts
{
    my($ctx)=@_;
    my $ctx_id = $ctx->{args}[0];

    $floor{$ctx_id}=$ctx->{params}{address};

 view all matches for this distribution


Elastic-Model

 view release on metacpan or  search on metacpan

lib/Elastic/Model/Role/Index.pm  view on Meta::CPAN

    $self->model->store->$action( %args, index => $self->name );
    return $self;
}

#===================================
sub update_settings {
#===================================
    my $self = shift;
    $self->model->store->update_index_settings(
        index    => $self->name,
        settings => {@_}
    );
    return $self;
}

#===================================
sub update_analyzers {
#===================================
    my $self   = shift;
    my $params = $self->index_config(@_);
    delete $params->{mappings};
    $self->model->store->update_index_settings(%$params);

lib/Elastic/Model/Role/Index.pm  view on Meta::CPAN

    my $indices = $self->model->store->get_aliases( index => $name );
    return !!$indices->{$name};
}

#===================================
sub update_mapping {
#===================================
    my $self     = shift;
    my %args     = ref $_[-1] eq 'HASH' ? %{ pop() } : ();
    my $mappings = $self->mappings(@_);
    my $store    = $self->model->store;

 view all matches for this distribution


ElasticSearchX-Model

 view release on metacpan or  search on metacpan

lib/ElasticSearchX/Model/Bulk.pm  view on Meta::CPAN

    my ( $self, $action, $payload ) = ( shift, %{ $_[0] } );
    $payload->{source} = delete $payload->{body};
    $self->stash->add_action( $action => $payload );
}

sub update {
    my ( $self, $doc, $qs ) = @_;
    $self->add(
        {
            index => ref $doc eq 'HASH'
            ? $doc

 view all matches for this distribution


Elive

 view release on metacpan or  search on metacpan

lib/Elive/DAO.pm  view on Meta::CPAN

This method can be called from the class level. You will need to
supply the primary key and all mandatory fields. 

=cut

sub update {
    my ($self, $_update_data, %opt) = @_;

    die "attempted to update deleted record"
	if ($self->_deleted);

 view all matches for this distribution


Eliza-Chatbot

 view release on metacpan or  search on metacpan

t/02-base_me.t  view on Meta::CPAN

	});
};

done_testing();

sub update_options {
    my $args = shift;
	my $fields = Eliza::Chatbot->new($args->{options});
	my $att = $args->{att};
	# check its value
	is($fields->$att, $args->{value}, "$att set with correct value");

 view all matches for this distribution


Email-ExactTarget

 view release on metacpan or  search on metacpan

lib/Email/ExactTarget/SubscriberOperations.pm  view on Meta::CPAN

		\@subscribers
	);

=cut

sub update_or_create
{
	my ( $self, $subscribers ) = @_;

	return $self->_update_create(
		'subscribers' => $subscribers,

lib/Email/ExactTarget/SubscriberOperations.pm  view on Meta::CPAN

		\@subscribers
	);

=cut

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

	return $self->_update_create(
		'subscribers' => $subscribers,

 view all matches for this distribution


Email-LocalDelivery

 view release on metacpan or  search on metacpan

lib/Email/LocalDelivery/Maildir.pm  view on Meta::CPAN

  return if $mail->header("Lines");
  my @lines = split /\n/, $mail->body;
  $mail->header_set("Lines", scalar @lines);
}

sub update_time {
  if ($maildir_time != time) {
    $maildir_time    = time;
    $maildir_counter = 0;
  } else {
    $maildir_counter++;

 view all matches for this distribution


Embedix-DB

 view release on metacpan or  search on metacpan

DB/FileSystem.pm  view on Meta::CPAN

sub cloneDistro {

}

#_______________________________________
sub updateDistro {

}

#_______________________________________
sub getComponentList {

 view all matches for this distribution


Embperl

 view release on metacpan or  search on metacpan

eg/web/db/epwebapp.pl  view on Meta::CPAN

    return $self -> redir_to_show ($r) ;
    }

# ----------------------------------------------------------------------------

sub update_item
    {
    my $self     = shift ;
    my $r        = shift ;

    die "No category" if (!defined ($r->{category_set}{edit_level})) ;

eg/web/db/epwebapp.pl  view on Meta::CPAN

    }


# ----------------------------------------------------------------------------

sub update_user
    {
    my $self     = shift ;
    my $r        = shift ;

    if ($self -> checkuser_light($r) < 1)

 view all matches for this distribution


Enterasys-NetSight

 view release on metacpan or  search on metacpan

lib/Enterasys/NetSight.pm  view on Meta::CPAN

	my @params=qw(name snmpVersion read write maxAccess auth);
	return _call($self, 'addProfileEx', \@params, $args);
}

# Methods for updating
sub updateAuth
{
	my ($self, $args)=@_;
	my @params=qw(username description loginPassword enablePassword configurationPassword type);
	return _call($self, 'updateAuthCredentialEx', \@params, $args);
}
sub updateSnmp
{
	my ($self, $args)=@_;
	my @params=qw(name communityName userName authPassword authType privPassword privType);
	return _call($self, 'updateCredentialEx', \@params, $args);
}
sub updateProfile
{
	my ($self, $args)=@_;
	my @params=qw(name read write maxAccess authCredName);
	return _call($self, 'updateProfileEx', \@params, $args);
}

 view all matches for this distribution


EntityModel-Web-Apache2

 view release on metacpan or  search on metacpan

lib/EntityModel/Web/Apache2/UploadHandler.pm  view on Meta::CPAN


=head2 C<updateStatus>

=cut

sub updateStatus {
	my ($class, $f, $bucket, $mode, $block, $bytesRead) = @_;
	logError("Have %d bytes", $bytesRead);

	unless($f->ctx) {
		logError("New request, pid %d, URI %s", $$, $f->r->uri);

 view all matches for this distribution


EntityModel-Web

 view release on metacpan or  search on metacpan

lib/EntityModel/Web/Request.pm  view on Meta::CPAN

		return $self;
	}
	return $self->{uri};
}

sub update_uri_from {
	my ($self, $uri) = @_;
	$self->{uri} = $uri;
	$self->hostname($uri->host);
	$self->path($uri->path);
	$self->get->set($_, $uri->query_param($_)) for sort $uri->query_param;

 view all matches for this distribution


EntityModel

 view release on metacpan or  search on metacpan

lib/EntityModel/DB.pm  view on Meta::CPAN


Update information

=cut

sub update {
	my $self = shift;
	my %args = @_;
	$self->_fork_guard;

	my $sql = $args{sql};

 view all matches for this distribution


Etcd

 view release on metacpan or  search on metacpan

lib/Etcd/Keys.pm  view on Meta::CPAN

    my ($self, $key, $value, %args) = @_;
    croak 'usage: $etcd->create($key, $value, [%args])' if grep { !defined } ($key, $value);
    $self->set($key, $value, %args, prevExist => 'false');
}

sub update {
    my ($self, $key, $value, %args) = @_;
    croak 'usage: $etcd->update($key, $value, [%args])' if grep { !defined } ($key, $value);
    $self->set($key, $value, %args, prevExist => 'true');
}

 view all matches for this distribution


Etsy-StatsD

 view release on metacpan or  search on metacpan

lib/Etsy/StatsD.pm  view on Meta::CPAN


Update one of more stats counters by arbitrary amounts.

=cut

sub update {
	my ( $self, $stats, $delta, $sample_rate ) = @_;
	$delta = 1 unless defined $delta;
	my %data;
	if ( ref($stats) eq 'ARRAY' ) {
		%data = map { $_ => "$delta|c" } @$stats;

 view all matches for this distribution


Evo-EA

 view release on metacpan or  search on metacpan

lib/Evo/EA/Agent.pm  view on Meta::CPAN

	$class = ref($class) || $class;

	bless $self, $class;
}

sub update_with_agent {
	my ($self, $agent) = @_;

	$agent->update_once($self);
}

sub update_once {
	my ($self, $agent) = @_;

	$agent->interprete;
}

 view all matches for this distribution


( run in 0.550 second using v1.01-cache-2.11-cpan-ec4f86ec37b )