view release on metacpan or  search on metacpan

lib/HDB/CMDS.pm  view on Meta::CPAN

##########
# UPDATE #
##########

sub update {
  my $this = shift ;
  my ($table , $where , %up) = @_ ;
  
  $table = _format_table_name($table) ;
  

 view release on metacpan or  search on metacpan

lib/HPC/Runner/Command/execute_job/Logger/JSON.pm  view on Meta::CPAN

}

##TODO Once we add to the complete
## Get all the for the tasks
## Compute mean, min, max of all tasks
sub update_json_task {
    my $self = shift;

    # my @stats    = ( 'vmpeak', 'vmrss', 'vmsize', 'vmhwm' );
    # my $job_meta = $self->parse_meta_str;
    # my $basename = $self->data_tar->basename('.tar.gz');

 view release on metacpan or  search on metacpan

lib/HTML/Bricks/Mappings.pm  view on Meta::CPAN

}

#-----------------------------------------------------------------------------
# update
#-----------------------------------------------------------------------------
sub update($$$) {
  my ($self, $position, $rmapping) = @_;

  $position = 0 if !defined $position;
  my $rary = $self->read_mappings();
  splice @$rary, $position, 1, $rmapping;

 view release on metacpan or  search on metacpan

script/hcgen  view on Meta::CPAN

    $t =~ s/\%M/$self->month_name/ge;
    $t =~ s/\%y/$self->year/gie;
    return $t;
}

sub update_if_needed($$) {
    my ($fname, $new) = @_;

    # Do not overwrite unless modified.
    if ( -s $fname && -s _ == length($new) ) {
	local($/);

 view release on metacpan or  search on metacpan

lib/HTML/FormFu/Model/DBIC.pm  view on Meta::CPAN

    my $dbic = $resultset->new_result( {} );

    return $self->update( $dbic, { %$attrs, base => $base } );
}

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

    croak "row object missing" if !defined $dbic;

    my $form = $self->form;

 view release on metacpan or  search on metacpan

lib/HTML/FormFu/Model.pm  view on Meta::CPAN

sub default_values {
    croak "'default_values' method not implemented by Model class";
}

sub update {
    croak "'update' method not implemented by Model class";
}

sub create {
    croak "'create' method not implemented by Model class";

 view release on metacpan or  search on metacpan

lib/HTML/FormHandler/TraitFor/Model/DBIC.pm  view on Meta::CPAN

    my $self = shift;
    $self->item(undef);
    $self->item_id(undef);
}

sub update_model {
    my $self   = shift;
    my $item   = $self->item;
    my $source = $self->source;

    warn "HFH: update_model for ", $self->name, "\n" if $self->verbose;

 view release on metacpan or  search on metacpan

lib/HTML/FormHandler.pm  view on Meta::CPAN

}

sub get_default_value { }
sub _can_deflate { }

sub update_fields {
    my $self = shift;
    if( $self->has_update_field_list ) {
        my $updates = $self->update_field_list;
        foreach my $field_name ( keys %{$updates} ) {
            $self->update_field($field_name, $updates->{$field_name} );

lib/HTML/FormHandler.pm  view on Meta::CPAN

        }
        $self->clear_defaults;
    }
}

sub update_field {
    my ( $self, $field_name, $updates ) = @_;

    my $field = $self->field($field_name);
    unless( $field ) {
        die "Field $field_name is not found and cannot be updated by update_fields";

lib/HTML/FormHandler.pm  view on Meta::CPAN

       params => $params );

The 'update_field_list' is processed by the 'update_fields' form method,
which can also be used in a form to do specific field updates:

    sub update_fields {
        my $self = shift;
        $self->field('foo')->temp( 'foo_temp' );
        $self->field('bar')->default( 'foo_value' );
        $self->next::method();
    }

 view release on metacpan or  search on metacpan

examples/edit.pl  view on Meta::CPAN

            deleteEntry( \@{ @$t[$i]->{subtree} }, $find );
        } ## end elsif ( defined @{ @$t[$i...]})
    } ## end for ( my $i = 0 ; $i < ...)
} ## end sub deleteEntry

sub updateTree {
    my $t = shift;
    for ( my $i = 0 ; $i < @$t ; $i++ ) {
        if ( defined @$t[$i] ) {
            @$t[$i]->{onmouseup}   = "confirmMove()";
            @$t[$i]->{id}          = @$t[$i]->{id};

examples/edit.pl  view on Meta::CPAN

<td ><a class="treeviewLink$size" href="$ENV{SCRIPT_NAME}?action=editTreeviewEntry&amp;rid=@$t[$i]->{id}"><img src="/style/$m_sStyle/$size/mimetypes/edit.png" border="0" alt="edit"/></a></td><td><a class="treeviewLink$size" href="$ENV{SCRIPT_NAME}?ac...
            @$t[$i]->{href} = '';
            updateTree( \@{ @$t[$i]->{subtree} } ) if ( defined @{ @$t[$i]->{subtree} } );
        } ## end if ( defined @$t[$i] )
    } ## end for ( my $i = 0 ; $i < ...)
} ## end sub updateTree

sub rid {
    no warnings;
    $m_nRid = 0;
    &getRid( \@tree );

 view release on metacpan or  search on metacpan

lib/HTML/MobileJp/Filter/Content.pm  view on Meta::CPAN

*stringfy = \&as_html;

use XML::LibXML;

sub update {
    my ($self, $content) = @_;
    if (ref($content) and $content->isa(__PACKAGE__)) {
        $self->{$_} = $content->{$_} for qw( html xml );
    } elsif (ref($content) and $content->isa('XML::LibXML::Document')) {
        $self->xml($content);

 view release on metacpan or  search on metacpan

lib/HTML/Object/DOM/Element/Input.pm  view on Meta::CPAN

    my $input = $doc->querySelector('input');
    my $log = $doc->getElementById('values');

    $input->addEventListener( input => \&updateValue );

    sub updateValue
    {
        my $e = shift( @_ );
        $log->textContent = $e->target->value;
    }

 view release on metacpan or  search on metacpan

lib/HTML/Prototype.pm  view on Meta::CPAN

    $prototype->update_element_function( 'status',
        { binding => "You've bought a new product!" } );

=cut

sub update_element_function {
    my ( $self, $element_id, $options, $code ) = @_;
    $options ||= {};
    my $content = $options->{content} || '';
    $content = &$code if $code;
    my $action = $options->{action} || $options->{update};

 view release on metacpan or  search on metacpan

Puzzle/DBTable.pm  view on Meta::CPAN

	debug($sql);
	$self->{dbh}->do($sql,undef,@values) or 
		die "Unable to execute $sql with params " . join(';',@values);
}

sub update {
	my $self 	= shift;
	my $fields	= shift;
	my $filter	= shift;
	# create sql string
	my $sql 	= qq/Update $self->{name} set /;

 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/HTML/Shakan/Model/DBIxSkinny.pm  view on Meta::CPAN

    $model->insert($name => $row);
}

sub insert { shift->create(@_) }

sub update {
    my ($self, $row) = @_;
    my $dat = {};
    my $columns = $row->get_columns;
    my $params = $self->form->params();
    for my $column (keys %$columns) {

 view release on metacpan or  search on metacpan

lib/HTML/SuperForm/Field.pm  view on Meta::CPAN

        return $self->disabled ? ' disabled="' . $self->disabled . '"' : '';
    }
    return $self->disabled ? ' disabled' : '';
}

sub update_form {
    my $self = shift;

    return unless $self->name();
    return unless UNIVERSAL::isa($self->form, "HTML::SuperForm");

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