view release on metacpan or  search on metacpan

lib/HTML/Tested/ClassDBI/Field.pm  view on Meta::CPAN

	return exists $cdbi->{$c} ? $cdbi->{$c} : $cdbi->$c;
}

sub column_name { return shift()->[0]; }

sub update_column {
	my ($self, $setter, $root, $name) = @_;
	$setter->($self->[0], $root->$name) unless $root->ht_get_widget_option(
		$name, "cdbi_readonly");
}

lib/HTML/Tested/ClassDBI/Field.pm  view on Meta::CPAN

	my ($self, $cdbi) = @_;
	my @pvals = map { $cdbi->$_ } $cdbi->primary_columns;
	return join('_', @pvals);
}

sub update_column {}

sub setup_type_info {
	my ($self, $root, $w) = @_;
	my @pc = $root->primary_columns;
	return if @pc > 1; 

lib/HTML/Tested/ClassDBI/Field.pm  view on Meta::CPAN

sub get_column_value {
	my ($self, $cdbi) = @_;
	return [ map { $_->get_column_value($cdbi) } @$self ];
}

sub update_column {}

sub setup_type_info {
	my ($self, $root, $w) = @_;
	for (my $i = 0; $i < @$self; $i++) {
		my $iopts = $w->options->{$i} || {};

 view release on metacpan or  search on metacpan

TocUpdator.pm  view on Meta::CPAN

# function: Update ToC in string.
# args:     - $aToc: (reference to array of) ToC object to update
#           - $aString: string to update ToC of
#           - $aOptions: optional updator options

sub update {
	# Get arguments
    my ($self, $aToc, $aString, $aOptions) = @_;
	# Do start update
    $self->_update(MODE_DO_UPDATE, $aToc, $aString, $aOptions);
}  # update()

TocUpdator.pm  view on Meta::CPAN

# function: Update ToC of file.
# args:     - $aToc: (reference to array of) ToC object to update
#           - $aFile: (reference to array of) file to parse for updating.
#           - $aOptions: optional updator options

sub updateFile {
	# Get arguments
    my ($self, $aToc, $aFile, $aOptions) = @_;
	# Do start update
    $self->_updateFile(MODE_DO_UPDATE, $aToc, $aFile, $aOptions);
}  # update()

 view release on metacpan or  search on metacpan

lib/HTML/WebMake/CGI/Edit.pm  view on Meta::CPAN

  $name =~ tr!A-Z!a-z!;
  $self->{read_metas}->{$name} = $val;
  return '';
}

sub update_metatable {
  my ($self) = @_;
  my $q = $self->{q};
  if (!$self->{metatable}->lock_metatable_file ($self->{file_base})) {
    $self->warn ("failed to lock metadata table: ".
    	"someone else may be updating content here, in which case try again".

 view release on metacpan or  search on metacpan

lib/HTML/Widgets/NavMenu/Tree/Node.pm  view on Meta::CPAN

    my $sub  = shift;
    $self->update_based_on_sub($sub);
}


sub update_based_on_sub
{
    my $self = shift;
    my $sub  = shift;
    if ( my $expand_val = $sub->expanded() )
    {

 view release on metacpan or  search on metacpan

lib/HTTP/CDN.pm  view on Meta::CPAN

    my ($self, $fileinfo) = @_;

    return $fileinfo->{data} // scalar($fileinfo->{fullpath}->slurp);
}

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

    die "No URI specified" unless $uri;

    my $force_update;

 view release on metacpan or  search on metacpan

lib/HTTP/Daemon/Threaded/Logger.pm  view on Meta::CPAN

=end classdoc

=cut
sub updateLifetime {
	$_[0]->{Lifetime} = $_[1];
}
=pod

=begin classdoc

lib/HTTP/Daemon/Threaded/Logger.pm  view on Meta::CPAN

=end classdoc

=cut
sub updateMaxSize {
	$_[0]->{MaxSize} = $_[1];
}
=pod

=begin classdoc

lib/HTTP/Daemon/Threaded/Logger.pm  view on Meta::CPAN

=end classdoc

=cut
sub updatePath {
	my ($self, $newpath) = @_;

	$self->truncate($newpath);
	$self->{Path} = $newpath;
}

 view release on metacpan or  search on metacpan

ProxyTest.pm  view on Meta::CPAN

	}

	\%args
}

sub update_whitelist {
	my $whitelist = shift;
	return {} unless $whitelist;

	tie my %white, 'SDBM_File', $whitelist, O_CREAT|O_RDWR, 0666 or die $!;
	my @oldies = grep $white{$_} < $time - 604800, keys %white;

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

        $examples =~ s/\r\n/\n/g;
        update_file( $example_file, $examples );
    };
};

sub update_file {
    my( $filename, $new_content ) = @_;
    my $content;
    if( -f $filename ) {
        open my $fh, '<:raw:encoding(UTF-8)', $filename
            or die "Couldn't read '$filename': $!";

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

        $examples =~ s/\r\n/\n/g;
        update_file( $example_file, $examples );
    };
};

sub update_file {
    my( $filename, $new_content ) = @_;
    my $content;
    if( -f $filename ) {
        open my $fh, '<:raw:encoding(UTF-8)', $filename
            or die "Couldn't read '$filename': $!";

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

        $examples =~ s/\r\n/\n/g;
        update_file( $example_file, $examples );
    };
};

sub update_file {
    my( $filename, $new_content ) = @_;
    my $content;
    if( -f $filename ) {
        open my $fh, '<', $filename
            or die "Couldn't read '$filename': $!";

 view release on metacpan or  search on metacpan

lib/HTTP/Session/Store/DBI.pm  view on Meta::CPAN

    my $sql =qq~INSERT INTO $sid_table ($sid_col, $data_col, $expires_col) VALUES (?, ?, ?)~;
    my $sth = $dbh->prepare($sql);
    $sth->execute( $session_id, $data, time() + $self->expires );
}

sub update {
    my ($self, $session_id, $data) = @_;
    
    $data = encode_base64( nfreeze($data) );
    
    my $dbh = $self->dbh;

 view release on metacpan or  search on metacpan

lib/HTTP/Session/Store/KyotoTycoon.pm  view on Meta::CPAN

sub insert {
    my ($self, $session_id, $data) = @_;
    $self->{kt}->set( $session_id, Storable::nfreeze($data), $self->{expires} );
}

sub update {
    my ($self, $session_id, $data) = @_;
    $self->{kt}->replace( $session_id, Storable::nfreeze($data), $self->{expires} );
}

sub delete {

 view release on metacpan or  search on metacpan

lib/HTTP/Session/Store/CHI.pm  view on Meta::CPAN

sub insert {
    my ($self, $session_id, $data) = @_;
    $self->chi->set( $session_id, $data, $self->expires );
}

sub update {
    my ($self, $session_id, $data) = @_;
    $self->chi->set( $session_id, $data, $self->expires );
}

sub delete {

 view release on metacpan or  search on metacpan

script/ua_parser  view on Meta::CPAN

    print "  Update regexes.yaml file \n\n";
    print "% ua_parser -p \"some user agent\"\n";
    print "  Parses user agent and print back the results\n";
}

sub update {
    print "Fetching Regex file from server...\n";
    my $content = getFile();
    my $PATH = HTTP::UA::Parser::Utils::getPath();
    my $temp = $PATH.'/temp_regexes.yaml';
    my $old = $PATH.'/regexes.yaml';

 view release on metacpan or  search on metacpan

lib/HTTP/UserAgentString/Parser.pm  view on Meta::CPAN

		Carp::carp("Can't get .ini from $INI_URL: " . $res_ini->status_line . "\n");
		return 0;
	}
}

sub updateDB($;$) {
	my ($self, $force) = @_;

	# Check if cache file needs to be updated according to max_age

	my $cache_file = $self->cache_file;

 view release on metacpan or  search on metacpan

lib/HTTPD/UserAdmin.pm  view on Meta::CPAN

	delete $attr{$_}; #just incase, everything else should be OK
    }
    return new HTTPD::GroupAdmin (%attr, @_);
}

sub update {
    my($self, $username, $passwd, @fields) = @_;
    return (0, "User '$username' does not exist") unless $self->exists($username);
    my ($old_encr, $bool);
    if (!defined $passwd) {
	$bool = 1;

 view release on metacpan or  search on metacpan

lib/Handel/Storage/RDBO/Result.pm  view on Meta::CPAN

sub discard_changes {
    return shift->storage_result->load(@_);
};

sub update {
    my ($self, $data) = @_;
    my $storage_result = $self->storage_result;
    my $coldata = Rose::DB::Object::Helpers::column_value_pairs($storage_result);

    if ($data) {

 view release on metacpan or  search on metacpan

lib/Catalyst/Helper/Controller/Handel/Cart.pm  view on Meta::CPAN

    [% uri %]/update/

=cut

sub update : Local {
    my ($self, $c) = @_;

    if ($c->req->method eq 'POST') {
        if ($c->forward('validate')) {
            if (my $cart = $c->forward('load')) {

 view release on metacpan or  search on metacpan

lib/Hardware/Vhdl/Automake/PreProcessor/Cish.pm  view on Meta::CPAN

    my @args = split(',', $args);
    delete $self->[0]{macros}{$macname.'('.scalar(@args)};
    $self->update_macro_re;
}

sub update_macro_re {
    my $perm  = shift->[0];
    my @macnames;
    my %macfuncnames;
    for my $search (map { $perm->{macros}{$_}{search} } keys %{$perm->{macros}}) {
        if (substr($search, -1) eq '(') {

 view release on metacpan or  search on metacpan

lib/Hash/PriorityQueue.pm  view on Meta::CPAN

	}
	delete($self->{prios}->{$elem});
	return $elem;
}

sub update {
	my ($self, $payload, $priority) = @_;
	my $op = $self->{prios}->{$payload};
	if (defined($op)) {
		$self->{queue}->{$op} = [ grep { $_ ne $payload } @{$self->{queue}->{$op}} ];
		if (!@{$self->{queue}->{$op}}) {

 view release on metacpan or  search on metacpan

lib/Healthchecks.pm  view on Meta::CPAN

=cut

#################### subroutine header end ####################

sub update_check($c, $uuid, $data){
    return $c->_execute({
        api    => 'v1/checks/'.$uuid,
        method => 'post',
        data   => $data
    });

 view release on metacpan or  search on metacpan

eg/Helios-App-MP3IndexerService/lib/Helios/App/MP3IndexerService.pm  view on Meta::CPAN

method, and it has a hash with all of the configuration parameters for the 
current application running on the current host.

=cut 

sub updateDb 
{
	my $self = shift;
	my $filename = shift;
	my $mp3i = shift;
	my $config = $self->getConfig();

 view release on metacpan or  search on metacpan

t/10_hg_repository.t  view on Meta::CPAN

    my $command_result;
    $command_result = `$edit_file_command`;
}

sub update_repo {
    my $revision = shift || 0;

    my $update_command = "$hg -R $test_repo update -r $revision";

    my $command_result;

 view release on metacpan or  search on metacpan

lib/HiPi/Interface/Common/HD44780.pm  view on Meta::CPAN

sub send_text { croak('send_text must be overriden in derived class'); }

sub send_command { croak('send_command must be overriden in derived class'); }

sub update_baudrate { croak('update_baudrate must be overriden in derived class'); }

sub update_geometry { croak('update_geometry must be overriden in derived class'); }

1;

__END__

 view release on metacpan or  search on metacpan

lib/HoneyClient/Agent.pm  view on Meta::CPAN

#
# Check to make sure this issue is not critical.
#
# We must base64 encode the data, since SOAP doesn't like URLs
# that contain amperstands.
sub updateState {

    # Extract arguments.
    my ($class, $arg) = @_;
    my %args = ();

 view release on metacpan or  search on metacpan

lib/Hoobot/Page.pm  view on Meta::CPAN

  return $self;
}

# method (do the actual downloading thing)
sub update {
  my $self = shift;
  $self = $self->new unless ref $self; # does this make sense?!

  $self->prepare_update; # setup anything necessary before updating

 view release on metacpan or  search on metacpan

lib/Hypothesis/API.pm  view on Meta::CPAN

Returns a boolean value indicating whether or not the annotation for
that id has been successfully updated (1 = yes, 0 = no).

=cut

sub update_id {
    my ($self, $id, $payload) = @_;
    if (not defined $id) {
        die "Can only call update if given an id.";
    }
    my $data = $json->encode($payload);

 view release on metacpan or  search on metacpan

lib/IMDB/Local/DB/BaseObject.pm  view on Meta::CPAN

	$self->$key($value);
    }
    return(1);
}

sub update($@)
{
    my $self=shift;
    my $args={@_};
    my %updates;
    

 view release on metacpan or  search on metacpan

lib/IO/EPP/Base.pm  view on Meta::CPAN

Part of update_* functions

=cut

sub update_statuses_add {
    my ( undef, $type, $statuses ) = @_;

    my $add = '';
    my %sts;

lib/IO/EPP/Base.pm  view on Meta::CPAN

Part of update_* functions

=cut

sub update_statuses_rem {
    my ( undef, $type, $statuses ) = @_;

    my $rem = '';
    my @sts;

lib/IO/EPP/Base.pm  view on Meta::CPAN

        },
    );

=cut

sub update_contact {
    my ( $self, $params ) = @_;

    return ( 0, 0, 'no params' ) unless ref $params;

    return ( 0, 0, 'no cont_id' ) unless $params->{cont_id};

lib/IO/EPP/Base.pm  view on Meta::CPAN

        conn => $conn,
    } );

=cut

sub update_ns {
    my ( $self, $params ) = @_;

    return ( 0, 0, 'no ns' ) unless $$params{ns};

    my $add = '';

lib/IO/EPP/Base.pm  view on Meta::CPAN

Can be overwritten in a child module, example, in L<IO::EPP::DrsUa>

=cut

sub update_domain_add_nss {
    my ( undef, $params ) = @_;

    my $add = "     <domain:ns>\n";

    foreach my $ns ( @{$$params{add}{nss}} ) {

lib/IO/EPP/Base.pm  view on Meta::CPAN

Can be overwritten in a child module.

=cut

sub update_domain_rem_nss {
    my ( undef, $params ) = @_;

    my $rem = "     <domain:ns>\n";

    foreach my $ns ( @{$$params{rem}{nss}} ) {

lib/IO/EPP/Base.pm  view on Meta::CPAN

In this function this module contains the DNSSEC extension

=cut

sub update_domain_ext {
    my ( undef, $params ) = @_;

    my $ext = '';

    my $rem_ds = '';

lib/IO/EPP/Base.pm  view on Meta::CPAN

        conn => $c,
    } );

=cut

sub update_domain {
    my ( $self, $params ) = @_;

    return ( 0, 0, 'no params' ) unless ref $params;

    return ( 0, 0, 'no dname' ) unless $params->{dname};

 view release on metacpan or  search on metacpan

lib/IO/Iron/IronMQ/Client.pm  view on Meta::CPAN

    $log->debugf( 'Returned info about queue %s.', $params{'name'} );
    $log->tracef( 'Exiting get_queue_info: %s', $info );
    return $info;
}

sub update_queue {
    my $self   = shift;
    my %params = validate(
        @_,
        {
            'name' => {