view release on metacpan or  search on metacpan

lib/Digest/Directory/API.pm  view on Meta::CPAN

=cut

######################################################################

sub update
{
    my($self, $link, $user, $pass, $file, $nodetails, $nosummary, $showequal) = @_;

    print "UPDATING\n"
        if (!$self->{'quiet'});

 view release on metacpan or  search on metacpan

lib/Disk/SMART.pm  view on Meta::CPAN

    $smart->update_data('/dev/sda');

=cut

sub update_data {
    my ( $self, @p_devices ) = @_;
    my @devices = @p_devices ? @p_devices : $self->get_disk_list();

    foreach my $device (@devices) {
        my $out;

 view release on metacpan or  search on metacpan

lib/Dist/Banshee/Mint.pm  view on Meta::CPAN

		rmdir '.banshee-update';
		die $@;
	}
}

sub update_script {
	my ($skeleton_name, $script_name) = @_;

	my $source_dir = catfile(_find_profile($skeleton_name), 'skeleton', '.banshee');

	my $source = catfile($source_dir, $script_name);

lib/Dist/Banshee/Mint.pm  view on Meta::CPAN

	}

	return;
}

sub update_patch {
	my ($skeleton_name, $script_name) = @_;

	my $source_dir = catfile(_find_profile($skeleton_name), 'skeleton', '.banshee');

	my $source = catfile('.banshee', $script_name);

 view release on metacpan or  search on metacpan

t/96-release_cycle.t  view on Meta::CPAN

sub done {
    done_testing;
#    system("rm", "-rf", "/home/spek/repos/acme-steveb");
    exit;
}
sub update_version {
    # version_info()

    my ($orig_ver) = values %{(version_info('lib/Acme/STEVEB.pm'))[0]};

    release_version($orig_ver);

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Plugin/UpdateGitHub.pm  view on Meta::CPAN

use Config::Identity::GitHub;
use LWP::UserAgent;
my $agent = LWP::UserAgent->new;

sub update {
    my $self = shift;
    my %given = @_;
    my ( $login, $token, $repository, $description );

    ( $repository, $description ) = @given{qw/ repository description /};

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Tempdir/Dir.pm  view on Meta::CPAN

sub update_input_file {
  my ( $self, $file ) = @_;

  my $update_item = Dist::Zilla::Tempdir::Item->new( name => $file->name, file => $file->file, );
  $update_item->set_original;

lib/Dist/Zilla/Tempdir/Dir.pm  view on Meta::CPAN

sub update_disk_file {
  my ( $self, $fullname ) = @_;
  my $fullpath  = path($fullname);
  my $shortname = $fullpath->relative( $self->_tempdir );

  my %params = ( name => "$shortname", content => $fullpath->slurp_raw );

lib/Dist/Zilla/Tempdir/Dir.pm  view on Meta::CPAN

sub update_input_files {
  my ($self) = @_;
  for my $file ( $self->_all_input_files ) {
    $self->update_input_file($file);
  }
  return;

lib/Dist/Zilla/Tempdir/Dir.pm  view on Meta::CPAN

sub update_disk_files {
  my ($self) = @_;
  for my $filename ( Path::Iterator::Rule->new->file->all( $self->_tempdir->stringify ) ) {
    next if $self->_has_input_file( path($filename)->relative( $self->_tempdir ) );
    $self->update_disk_file($filename);
  }

 view release on metacpan or  search on metacpan

lib/Document/Repository.pm  view on Meta::CPAN

Returns a true value if the file was successfully updated, or undef on 
any error.  Retrieve the error via get_error();

=cut
sub update {
    my $self = shift;
    my $filename = shift || return undef;
    my $doc_id = shift || return undef;
    my $content = shift;
    my $append = shift;

 view release on metacpan or  search on metacpan

lib/Document/TriPart/Cabinet/Storage/Disk.pm  view on Meta::CPAN

#    my $self = shift;
#    my $document = shift;
#    $self->_write_document( $document );
#}

#sub update {
#    my $self = shift;
#    my $document = shift;
#    $self->_write_document( $document );
#}

#sub update_or_insert {
#    my $self = shift;
#    my $document = shift;

#    if ( $self->_load( $document ) ) {
#        $self->update( $document );

 view release on metacpan or  search on metacpan

lib/Domain/Register/DomainShare.pm  view on Meta::CPAN

sub domain_reactivate {
    my ($self, $args) = @_;
    $self->_make_request('domain_reactivate', undef, ['email', 'password', 'domainname'], $args);
}

sub update_parking {
    my ($self, $args) = @_;
    $self->_make_request('update_parking', undef, ['email', 'password', 'domainname'], $args);
}

 view release on metacpan or  search on metacpan

lib/Domain/Register/TK.pm  view on Meta::CPAN

          'domainname' => 'TESTDOMAIN-0004.TK'
        };

=cut

sub updatedns {
    my $self   = shift;
    my $domain = shift;

    my $st;

lib/Domain/Register/TK.pm  view on Meta::CPAN

          'domainname' => 'TESTDOMAIN-0003.TK'
        };

=cut

sub updatewhois {
    my $self   = shift;
    my $domain = shift;
    my $param  = shift;

    my $temp_st = { function => 'updatewhois', domainname => $domain };

 view release on metacpan or  search on metacpan

lib/Dpkg/BuildFlags.pm  view on Meta::CPAN

$source is the origin recorded for any build flag set or modified.

=cut

sub update_from_conffile {
    my ($self, $file, $src) = @_;
    local $_;

    return unless -e $file;
    open(my $conf_fh, '<', $file) or syserr(g_('cannot read %s'), $file);

 view release on metacpan or  search on metacpan

lib/Drupal/Admin.pm  view on Meta::CPAN

}


# WARNING this has a dependency on an English string
# die()s if errors are detected
sub update {
  my($self) = @_;

  $self->log_trace("Entering update()");

  my $url = $self->{baseurl} . '/update.php';

 view release on metacpan or  search on metacpan

lib/DuckCurses/level1.pm  view on Meta::CPAN

	$self->init;

}

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

	if (my @units = $level_timer->hms and @units[1] >= 0.500) {
		$self->move_left;
		return "ok";

 view release on metacpan or  search on metacpan

lib/Dwimmer/Feed/Admin.pm  view on Meta::CPAN

		}
	}
	return;
}

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

	my $s = $self->db->get_source_by_id($args{id});
	if (not $s) {
		die "ID '$args{id}' not found\n";

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